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ABSTRACT 


Group decision making utilizing the Delphi method can be 
a time-consuming and difficult procedure, especially when 
the required group membership iS Separated by great 
distances. This study designs and implements an automated 
Group decision support system which may be employed by a 
Single computer or a networking system. 

This particular model is text-based as opposed to 
mathematical-based, a radical departure from the GDSS models 
currently in vogue. This program, TouchStone, successfully 
transiates the Deiphi method of criteria deveiapment to the 


computer. It is implemented in Turbo Pascal for the IBM-PC. 
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1. a ae 


A. DEFINITION OF THE PROBLEM 

In today’s fast-paced world community, the logistics of 
assembling a group of experts for the purpose of resolving a 
Particular problem has become a problem unto itself. 
Conflicting schedules, prohibitive distances, and the 
increasing frequency of group decision-making efforts are 
constant barriers to effective attacks on common problems. 
Even if such problems were easily surmountable, the 
importance and complenity of today’s problems would require 
a decision based on the concensus of an expert group rather 


than the opinion of a single, stong-minded individual. 


B. THE NEED FOR THE COMPUTERIZED GDSS 

Managerial decision making has become increasingly more 
dependent upon computer-generated information. As a result, 
management is more cognizant of the capabilities anc 
potentials of computer-based systems. The computer-based 
system has evolved from assisting individuals in making a 
decision to supporting and enhancing a wide range of group 
and organizational dgecisions. The question is hew ta 
effectively and efficiently design a distributed Decision 
Support System (DSS) to aid a group in defining, evaluating, 
modifying, and seeking consensus in deriving the criteria 
for a common problem. Recent literature in computer 


conferencing systems suggests that a computer-based Group 


Decision Support System (‘(GDSS) could: 
1. Reduce tension due to face-to-face communications, 
2. Promote equal participation, and 


3S. Favor free and creative generation of ideas. 


C. SCOPE OF TOUCHSTONE 

CO-OP, a program recently developed at the Naval FPost- 
graduate School, Monterey, California, was designed to 
assist in the Prioritization of previous] y-developed 
criteria. TouchStone, the program written as an adjunct to 
this thesis, is a prototype of a text-oriented, criteria- 
development system which may be utilized independentiy or as 
a "front-end" to the CO-OF program. Inasmuch aS it is a 
prototype, there are necessary physical iimitations to the 
number of problems, criteria, and people the system is 
designed to handle. 

While both TouchStone and CO-OP are stand-alone systems, 
TouchStone offers a solid baseline of developed criteria 


upon which CO-OF builds, and from which it processes a 


decision, using mathematical modeling. TouchStone is a 
self-contained system, with an on-line, on-screen "users 
manual" that provides specific information based upon the 
user's position and status in the program. Use or foucn- 


Stone neither requires nor precludes the use of CO-OF, but 
these two systems complement each other in their methods of 


problem resclution. 


D. ORGANIZATION OF THE THESIS 

Inasmuch as this thesis 1s project-oriented, the actual 
text herein 1S minimal, limited primarily to a description 
of the background for, and the process of, putting the 
Delphi system on an electronic medium. The bulk of the 
information is contained in the source code found in 
Appendix E. It 1s the technique of implementing the text- 
orientation, the help screens, the communicative 
"Chatterbox", and the hierarchical text-manipuliation, which 
is the essence of our efforts and our thesis. TouchStone is 
the thesis; this written effort is merely a support and a 


description of the true product of our research. 


Swe eceioa OF THE THESIS 

This thesis, and its accompanying computer program, 
focus on a particular aspect of group decision making. They 
develop a framework for quiding committee members to 
individually generate criteria for a collective problem, 
merge them together, and allow interactive negotiation ana 
collective refinement of the set of criteria representing 
the problem. This concept 1s centered around the premise of 
the Deliphi method of group decision-making and reflects the 
attempr of that method to provicge anonymous and equal 
partnership in problem resolution. The peculiarity of the 
TouchStone system i15 its unique utilization of organized 
text processing without depending upon complex mathematical 


modeiing to reach a conclusion. 


Eo &bibeii ve 

Qur objective is to provide the proper mix of computer 
assistance and creative freedom for the TouchStone users as 
they attempt problem resolution with the Delphi method. The 
orogram is developed ta support individuais anc groups 
having expertise in the management field but not necessarily 
in the computer field. It 15 Our intent to create an 
automated group decision-making tool that will take 
pressure, both real and imagined, away from the individual 
member serving on a committee, while not compromising the 
effectiveness of the committee as a whole. The system 
should allow the user to interact with other members of the 
commictee, free from the effects af those members’ actions, 


prejudices, and mannerisms. 
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is THE DELPHI METHOD OF GROUP DECISION MAKING 





A. BACKGROUND 


Research literature on the subject of the Delphi 
methodology Gives a wide variety of definitions and 
descriptions. The concept, developed primarily by the Rand 
corporation beginning in the late 1960's, has some 


fundamental Building Blocks common to most versions: 
dew An individual who defines a particular problem. 


ae A group of experts gathered together to resolve a 
pDarticuiar problem. 


ae A facilitator who collects the input from the 
experts, collates 1t, and gives the composite 
results Back to the experts far further 
consideration. 

4. Anonymity in the sense that the experts do not know 
the individual sources of the collective information, 
(although they may, in fact, Know who else 1s 1n the 
group). 

The purpose of the Delphi methodology is the elimination of 
external influences on group concensus and decisions. 

The idea is to improve the panel or committee 
approach in arriving at a forecast or estimate by 
subjecting the views of the individual participants to 
each other’s criticism in way that avoids face-to-face 
confrontation. CRef. 14 

It is By this technique that a free and open aiscussion of a 
problem may be implemented regardless of the personalities, 
ranks, or prestige of the participants. The solution to the 


problem, and little else, becomes the focus af the 


discussion. 


il 


B. COMPUTERIZATION OF THE DELPHI METHOD 

Translating the Deiphi method to the computer can be a 
relatively logical process. Building blocks 1 and 2 (see 
II, A.) are essentially unchanged; for building blocks 3 
and 4, the computer replaces the human involvement. Touch- 
Stone refers to the individual defining the problem, as the 
‘problem invocator’, and to the experts as the ‘committee 
members“. Through the TouchStone program, the computer 
becomes the facilitator, collecting and coilating the expert 
input. The anonymity of the experts is adequateiy main- 
tained by the system to all but the problem invocatoar. 

The major advantage to automating the Deiphi method is 
time. The Delseni method is lengthy and cumbersome when 
executed on a committee of any significant size. The 
computer allows committee members to be located around the 
world and stili to have instant access to the ‘facilitator’ 
at any time of day ar night. In tnis manner, probpiems may 
be resolved in days instead of months, and the need to 
physicaily assembie a group of experts to resolve a sropiem 


is all but eliminated. 


ps 
bJ 


I ee THE MODEL COMPONENT 


A. MODEL BASE FOR GROUP DECISION MAKING: ALTERNATIVES VS. 
CRITERIA 


Our framework for DSS includes modeling and model 
usage as one of three basic components, completely 
integrated with data base and dialog capabilities. This 
full antegration is necessary to support decision-making 
activities such as projection, deduction, creation, and 
comparison of alternatives. These activities require 
close interaction and rapid feedback between the decision 
maker and the computer, with strong and flexible control 
mechanisms. Ref. 2, p. 276] 

Alternatives are defined as the choices avaiiable for the 
resclution ot a given problem; criteria are tre guidelines 
to be used in making the final decision between those 
alternatives. TouchStone allows for the development of both 
of these important aspects of any decision, by allowing 
members to define, explain, discuss, re-define and acree 
upon a collective set of alternatives and criteria. Gnce 
this initial decision has been made, the remaining user 
responses and actions are the same for both. The initial 
decision of the committee member is to make the choice 
between developing alternatives or devetoping criteria. 

The TouchStone system uses the Model-Diaiog iink as 
described by Sprague and Carlston in that six Basic steps 
are utilized: 


le Invocation: user calls and starts the model 


aa Parameter request: program requests data or 
parameters 


ie Farameter collection: user supplies data or 
parameters 


4. Interrupt: not usually available other than 
unrecoverable terminate (break) or pause. 


ae Model completes run, notifies and presents results in 
a predefined format or report. 


5. Return to step 1 for another cycle if desired. 
(Ref. 2, pp. 274-2751 

BR. FROBLEM INVOCATOR 

The major design factor for TouchStone revolves around 
the creation of the problem and the responsibilities/limita- 
tions designated to resolve that problem. It was determined 
early in the research for this project that at least one 
person needed to be responsible tor identifying tine probiems 
and for necessary housekeeping chores. We established this 
“position’ by looking at anormal face-to-face committee, 
and emulating the positions within the TouchStone System, 
making the "problem invocator” the committee chairman. The 
potential duties of the problem invocator have extensive 
ramifications and far reaching consequences. Initially, the 
invocator is responsible for naming the problem, providing a 
Short but descriptive definition, and ‘foptionally) expanding 
upon that definition to any length he feels necessary. He 
is also responsible for designating the committee members, 
adding and deleting members to any committee as indicated, 
and for removing completed problems from the system. Figures 
16-19 exhibit screen menus with options available to the 


invocator. Final printouts of committee results and 
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archival printouts of the Chatterbox file are under his 


purview (see Figure 29). 


One of the most important decisions made by the 
invocator is that of committee member anonymity. The 
date/time/signature line in the Chatterbox (Chapter 4, 


paragraph D) may be modified to delete the automatic 
inclusion of the committee members’ initials. In this 
manner , the interaction between members may be truly 
anonymous and in keeping with the spirit of the Delphi 
method of group decision-making. The use of the date/time 
signature stamp is two-fold, not only does it orovide a 
reference point for committee members, it also ailows the 


probiem invocator to monitor the progress of the committee. 


C. COMMITTEE MEMBER 

The duties of the committee members are relatively 
simpie to define. They are required to input their ideas 
and await further TouchStone system instruction at each 
level. Although the final product of their iabors can  05bBe 
quite complex, the step-by-step methodology simplifies their 
efforts. 

One of the major concerns of the Delphi method was that 
committee members be allowed to reach a concensus without 
being intimidated By the leader/invocator, or other 
committee members (Ref. 4S]. Psychological research has 
shown that intimidation may occur by the tone of a person's 


voice, or even a casual glance from a superior CRef. 4]. In 


the cass of the TouchStone system, the invocator defines the 


problem, assigns members, and has total access over the 
system, but is unable to influence the committee members bv 
any of his system actions. Also, the committee members are 
oniy able to influence other members by the strength af 


their ideas, not of their personality or position. 


LEVEL @: 
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Figure 3.1 Data Flow Diagram 
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Figure 3.2 Data Flow Diagram 
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A. SCREEN DESIGN 

The original concept for the screen design for = Touch- 
Stone was to use a S-window screen which would incorporate 
the problem definition, the Chatterbox, and the criteria 
manipulation. Tt soon became evident that this technique 
would not provide adequate space for any of the abpove- 
mentioned functions. The use of pop-up windows tecame the 
most reasonacle alternative. Commercial software Was 
researched, but it was felt that RAM resident windows did 
mot provide adecuate fiexibility for context-sensitive neip 
screens. 

The use of multiple and/or “pop-up” windows was 
determined to be the most user-friendiy method of providing 
communications and on-screen assistance. ft was relt that 
simply refreshing the screen with the new screen, and then 
restoring it after the heip or ChatterSox screen was 
through, was too distracting to the user. Employing windows 
allowed the user's main focus to remain on the probiem 
screen, even when using the Chattersox ar tne heip screens. 

The present screen design utilizes a number of separate, 
interactive screens. Tne main program uses a single «coax 
with the TouchStone togo at the top of the box. Fach. oF 
the other screens is individualiy labeied, depending upon 


its function. Smaller boxes for the help screen, apArcolem 
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explanation and Chatterbox are layered onto the main screen. 
Any information overlaid by these boxes is restored when the 
box is removed. The boxes are carefully positicned for the 
xpress purpose cf minimizing the amount of current intorma— 
tion hidden by the overlay. (See Figures 36-390). 

Screens are designed for maximum user effectiveness, 
keeping in mind, that a "busy" screen is often confusing. 
Menus are used as frequently as passible, limiting the 
number of choices to a minimum. The basic background 
colors are a light blue for all screens, with contrasting 
colors being utilized for special fiags and pop-up windows. 
An example of this is the use of a red background for 
certain error messages. 

One of the special features of TouchStone’s screen 
design is the Odometer, which tracks and displays the user’s 
relative position in the TouchStone decision making process. 
Tt aiso indicates a Chatterbex antry that the current user 
has not viewed. Located at the bottom of main the screens 
the Odometer also contains instructions for the use of the 


Function Keys. (See Figure 35). 


B. DIALOGUE STYLE . 

AS Previously mentioned, the proegram is developed te 
support individuals and groups who are novices in computers. 
The use of "Special function" keys is kept to a minimum, 
with ciear definitions as to their usage displayed in the 


Odometer. Thus the simplicity of TouchStone eliminates the 


necessity for a manager or CEO to use a "computer chauffeur” 


for data input. 


C. ON-LINE ASSISTANCE 


Frogram assistance from TouchStone is provided in two 


forms, the “Introduction” screen and the "Help" screens. 
The “Introduction" screen is an option presented at the 
beginning of each TouchStone session, and contains a 


general, 4-page overview of the program. 

The initial idea for the Help Screens was to implement 
an “automatic™ screen, one which would appear when 
appropriate, without user action. Three categories of user 
expertise were defined, with corresponding levels of pop-up 
neip windows. The user would indicate his ability level at 


the beginning of each session, following which the context- 


sensitive on-line help screens would appear as the 
programmers felt necessary. Subsequent research revealed 


that this idea was nmeither feasible nor desirable, from 
either the programmers’ or the users’ standpoint. 

The present design of the "Help" screens for TouchStone 
follows the basic premise used by some of today’s more 
popular software. A single function key (F-1) accesses ane 
Of the many cre-written nelp screens. Each screen is codes 
for access depending upon the user’s location within the 
program. In this manner, the help screens remain current 
with the user and do not require a complex set of keystrokes 
on the user’s part for access. The "help" text is 


frequently larger than the size of the screens, and a 
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scrolling capability is implemented to compensate for this 


discrepancy. 


os THE DATA COMPCGNENT 


A. DATA STRUCTURE/MANAGEMENT 

The primary purpose of TouchStone., that of criterias 
alternative development, forces it to rely almost completely 
on the manipulation of text rather than data. The data 
component of TouchStone functions as a vehicle for flags and 
arrays. Fach individual user of TouchStone is given a 
separate file for each problem to which he is assignec. 
That file contains the user name, the oroblem name, the 
current status of the user within that problem, and the 
criteriavaliternatives that have been develocned. Shen this 
file is created, an entry is made in the "master" file. 
Conversely, when a problem 1s concluded and the user files 
deleted, the master file 1s updated accordinaly. These are 
the files dealing with text/data manipulation. 
utilized by the hels screens, Chatterbox, and problem 
explanation screens are ali text files. The heip screen 
files have been created by the orogrammers; the probiem 
explanation files is (optionally) created by the problem 
invocator at the time a new orobiem is defined: the 
Chatterbox files are created and updated each time the 
Chatterbox is used. The probitem invocator has the optian ta 
Orint aut the Chatterbox files at any time he so desires. 

Data Management concerns itself with the recording, 


editing, and manipulation of text input for criteria and 
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alternatives. Data management for TouchStone is based upon 
the complex alliance of two fundamental cornerstones: Flags 
and Arrays. The flags provide a "location map" for all 
members oan a committee, aliloacwing the proaram ‘and the 
oroblem invocator?) to accurately monitor the progress ana 
status of each problem resolution. Arrays provide the 
structure necessary to contain and control the free-flow 
text input vital to creative thought. The algorithm used 
for the marriage ef these two Bbuilding-blocks gives a TIlarge 
degree of freedom to the user while maintaining the 
structured environment required by the computer. 


The manipulation of data 1s handled mainiy by the 


extensive use of arrays. Data 1s initially input directly 
into a file. On the next user-access this data 15S brought 
up in the form of an array. This technique allows the 
sorting af individual files and, when requirec, the 
cOliating of multiple-user files. ft also permits the user 
to ‘edit’ the text while reviewing his individual files. 


When multiple-user files are collated, dupiicate records 
are eliminated, and the array replaces the original file 
with a new, composite file of criteria. 

Manipulating text data from a variety of iindividuais 
calls for the use of an intricate series of flags. Each 
committee member's file has a fliag-set based on the position 
of that file within the program. At certain points, 


continuation in the program is dependent upon the fiag set 


of ail other members Le the committee. tn addition, 


overseeing the progress of each problem resolution is~ an 
important task of the problem invocator. For these reasons, 
a separate master file was conceived, containing each 
problem name, each member of the committee dealing with each 
problem, and the current status of each member within a 
gQiven problem. 

The unique procedure "GetThekeys” provides a variety of 
options for the system. Each keystroke is processed 
individually allowing the length of the input to be varied 
by the calling procedure. In that manner the user is 
prevented from entering data whose length 15S 1n excess cf 
the size of the data field. The possibility of inputting a 
string of 468 characters, when the data field was oniy i 
Characters long, 1s thereby eliminated. The reading of each 
keystroke also allows the function keys to be accessed at 
any time during the program, and during the review and 
editing of the text portion of the program. the special 
functions of the numeric keypad (1.e. arrows and paging 
keys) are activated. 

An important feature of the data management of Touch— 
Stone is that it works in background mode, manipulating 
data, opening and loading files, and functioning as a system 
controller. It is an typical example of the "Black Hox" in 
action. The user inputs data and receives results while the 
intricate orocess of weaving the input into a proper output 


goes iargely unnoticed. 
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VI. THE COMMUNICATION COMPONENT 





A. GVERVIEW 

4 main focus of TouchStone is communication-— 
communication among users, communication between the user 
and the problem invocator, and user communication with the 
program itself. Without this intricate network of 
communication, the entire fabric of Touchstone would  05be 


lost. 


BR. TEXT EDITING 

Inasmuch as TouchStone is highly involved in text 
manioulation, a variety of techniques in performing this 
manipulation was necessary to achieve our overall purpose. 
Once again, it was our goal to provide as much freedom as 
possible for the user whiie maintaining the necessary degree 
of system integrity. The concept of using a form of 
wordprocessing toa input data is expected to be the most 
"user-friendly" method of inputting and manipulating data. 
Fach keystroke 1S read and manipulated by our program. This 
practice allows the function keys and special keys to be 
programmer-dertined and available throughout the eee 
Also, the on-line help-screens are automatically provided, 
Progressing throughout the program. 

Word-processing indicates the capability to block copy, 
move text, read to and from files, as well as text 


manipulation. TouchStone‘’s version of "word-processing" is 
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really a text editor, allowing for text input, erasure, 
SErQOL11ngG, paging, and home/end-of-file movemenc. Three 
specific versions of text-editing are utilized in Touch- 
Stone, each necessitated by the very different conditions 
under which it is used. 

The expanded problem explanation used by the  prabliem 
invocator is a straight text editor employed when a problem 
is first described. Once invoked, a detailed explanation is 
written to file for later recall by the committee members. 
Full text manipulation 1S possible only by the invocators 
committee members are limited to a read-only status. In 
this manner, oanly the probliem invocator has the ability to 
define the prodian, ensuring that each committee member is 
using the same baseline information. 

Although previous Chatterbox entries are available for 


review, text editing in the Chatterbox 15 available only at 


tne specitied g9o0int at the end of the file. Action in tre 
review mode is limited to scrolling and paging. Once an 
entry has been saved, it 15 not available for editing. ay 
limiting editing access to the entry being made, a 


"jermanent" record of Chatterbox entries may be made. 
Text-editing in the main section of the proaqram 15 
limited to single-line input. The length of each line 1s 
location sensitive and specifically detined. This method 
allows for a wide range of functions, including the constant 
access to help and Chatterbox screens, as well as the 


ability to input string and mumerical variables employing 
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the same procedural call. Elimination of all "READ" anda 
YEEADLN" calls was the unigue contribution of this procedure 


and the basis for an increased eiegance in programming. 


CG. Bete ese ReeNS 
dHeip screens are important for the system to 4e 
informative. Help screens are discussed in Chapter IV, 


paragraph C. 


D. FROBLEM EXPLANATION SCREEN 

The probiem invocator communicates with the committee 
members via the "problem explanation” box, accessed with the 
P—2 Sey During the initiai creation of the problem, tne 
imvocator is orompted to give a detailed expianation ofr the 
new oroblem. If ne eliects to do sao, a file af up ta ii8G 
text lines is made available to him. The committee member 
then kas a custom-made information file for each probiem on 
which he 1S working. Text manipulation 1S “read” and 
“write” for the problem invocator fat the time of probiem 
creation oniy) and "read-oniy”" for the committe2 member. 
Since the problem excianation may be considerably yerese 


than the probiem expianation screen, scroliing and pace 


up/down features are available to the user. 


E&. THE CHATTERBOX 

Tne primary purpose of the Chatterbox is to promote the 
informal exchange of information among committee membders. 
It Nas remained unchanged in its basic concept throughout 


the design and coding. However, of the many technical 


enhancements considered, those implemented were based 
Primarily upon user acceptance. 

Chatterbox differs from a conventional notepad in a 
number of ways. AS mentioned before, in order to prevent 
"malicious" erasure of text, previous entries of text cannot 
be changed. Also, each individual problem has its own 
unique, automatically accessed, Chatterbox. Anytime the 
user leaves the Chatterbox, the file is saved unless no 
entry has been made. Any entry made in the Chatterbox is 
date/time/signature stamped provicing an automatic record of 
the user. The problem invocator has the option of 
eliminating the siqnature from the viewed stamp for any 
given problem. 

Location of the Chatterbox was the source of much 
discussion. The Chatterbox is located at the right-hand 
Side of the screen, in order to leave important information 
residing in the main screen visible to the user. Idealiy, 
it would be nice to provide a movable windows however, in 
this version, the location of the Chatterbox is fixed. 

Designed to be used ona single computer or i1n a 
network, Chatterbox has a few unique features. 

1) Only one person may write to Chatterbox at a given 
time, but more than more person may use it on 4a 
read-only basis. 

2) The last 8@ text lines of a given Chatterbox file 
are read into the Chatterbox array, with capability 
to add up to 4@ lines of new text. However, a flag 
attached to the line counter prevents writing to 


any area except the last forty lines. In that 
manner, only new information may be edited. 
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One of the special features of the Chatterbox is to 
locate the user, upon re-entry, in the place 


(time/date), where he last logged out oaf the 


Chattertox. This feature allows him to check the 
messages that were entered after the last logout. 
Consequently, all new entries are immediately 


avallable for his review. 


4) The line counter, in the upper right hand corner oaf 
the Chatterbox, allows for quick location reference 
when browsing. 


a) Standardizing the line number between the read-— 
write and read-only sections of Chatterbox made 
this delineation easier to implement. The 


appropriate placement of the text retrieval “from 
the files was the primary key to controlling this 
procedure. 

There were two specific issues which were considered, 
but rejected as part of the final design: 1) The 
imposition of time limits for a person using the Chatterbox 
was discussed but not implemented. It was felt that the use 
of a forty line limit on each entry was to be a sufficient 
constraint. ed We also ruled out the possibility of 
importing data files into the Chatterbox. Such a situation 
would reduce the reading capability of the user, and {fill 
tRe Chatterbox with excess information. 

The Chatterbox 15 an integral part of the TouchStone 
system, being as important as the internal algorithms that 
ald the users in making a decision. Communication, as 
always, 1S vital to any decision-making process, and the 


Chatterbox enhances this aspect of the system. 


Ae ite IMPLEMENTATION OF TOUCHSTONE 


A. HARDWARE /SOFTWARE 

Touchstone was developed on a Microsoft-—based DGS 
computer with 649K RAM and a color card. TouchStone can be 
processed on a dual disk floppy drive system or a single 
floppy disk, with a hard disk system. Each floppy disk 
drive should tbe 360K RAM. 

The Microsoft Disk Cperating System utilized was version 
an The TouchStone System was written in Turbo Fascal 
version 3.41. No other software packages were employed in 
the rinal version of TouchStone. The system is comprised af 
four separate programs in the form of command files: 

1) ATOUCH. COM 

=) RBTOQUCH.COM 
= 2 GUE. CoM 
4) FLAGSET.COM. 
These files are incorcorated in a batch fiie cailed TS.bat. 


Each command file is basically a driver program, with 


numerous include files. These include files are listed in 
Appendix E. Documentation is done internally at the cbegqin- 
ning of each procedtre. Internal documentation lists the 


following: 


Frocedure name. 
Prooram supported. 
Local variabies used. 
Globai variables used. 


Arrays used. 
Files accessed. 


External Calis. 
External filters (include files) used. 
Where the procedure is caiiea from. 
Purpose of the procedure. 
The effort expended (manhours) was as foliaws: system 


analysis and design, iGO; recearch and thesis sreparatiocn, 


13@3 coding, testing, and depugging: 7/7. 


VIII. CONCLUSTONS 


TouchStone, Originally conceived as a criteria 
deveiopment tool for another DSS program eeeO=Or 
subsequently evolved into a stand alone program. AS a non 


mathematical, text—oriented GDSS, this program has entered a 
new area of computer support for making decisions. Alithough 
not thoroughly tested in a networking environment, the 
potential for such a use was an integral part of the design 
consideration and was incorporated in the final product. 
TouchStone works. It provides a vehicle for criteria 
deveicopment in a group esnvironment using tine Delphi method, 
creating a novel technique of computer assistance. The 
objective of providing a proper mix of computer assistance 
and creative freedom in the explanation and analysis phase 


of the problem solving orocess, Ras been achieved. 
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APPENDIX A 


DATA DICTIONARY 


A» Bs i, J 5 See As Vege Various integer counters used 
throughout the system. 


i, M and N: Integers that are summed and value passed toa 
Variable checkpoint. 


ACTIVEPROBLEMFILE: file of PROBREC. 


ALT: Single cnaracter used in identifying the fiie as an 
Alternative or Criteria, to be printed. 


ALTERNATIVE: A single character, "A" or °C’ for Alterna- 
tives cr Criteria, used for assignment or comparisons. 


ANGNYMCGUS: Boolean expression used in the chatterbox. 
When created, the propiem invecator has the option to make 
cemmunications anonymous from other committee members. 


AUTHORIZED: Hoolean expression, if true, allows the system 
to execute, if false, terminates the system. 


CH, CHA: Singie characters used for YES/NO type questians. 


CHANGEFLAG: Boolean variable responsible for setting flags 
appropriately depending on whether the user is in "Alterna- 
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CHANGERECL: A single character used to confirm whether the 
problem 18s an Alternative cor Criteria. 


CHATRFILE: 12 character string denoting the chattertdox fils 
to be used. 


CHATOK: Boolean expression that controls the use of the 
chatterodoxr utility. 


CHECKCHANGE: A singie character used to confirm whether the 
problem is an Alternative or Criteria. 


CHEER ECOINT =: integer denoting the sum of the first three 


fiags in this record. These records are sorted on this 
fieid to keep them in order according to the level of the 
data, 1 See, fli would equats a piece af Gata under thre 


first major criteria, under the first sub-criteria. 


Graco lAre: =F a Ssinagie character Used to track the user ’s 
HBOSttion in the system. 

CHEECAGL, CHEFLAGS, and CHKFLAGZ: Integers usec =O number 
the cifferent ievelis of aiternatives/criteria. 

SeaAO1TCes A single cnaracter, ‘R’ or ‘C' for Aitsrnatives or 
Criteria, used for assignment or comeariscns. 

arnt : Single character utilized tor error trapping 
procecures,. 

CLEARIT: Integers used for tracking the arrays, advanced 


once tor each record. 


CODESRRAY: String of 12 characters used to encode an decode 
passwords. 


CODENAME: string variable used for encoding and decoding 
User passwords. 


geet, COUNTED, COUNTER: integers used for trackine the 
arrays, advanced once for each record. 
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TARRAY: am array cof the records in the format of CRIREC. 


LRITDEF: String of S38 characters defining the above 
Variabie CRITNAME. 


CRITERIA: Used in comiunction with the record CRIREC. 


Bea tlLini?: oo Cede Genoting the maximum number af alterna 
Cives/criteria aiiowecd. 
CRITNAME: String of 14 characters denoting criteria/altar-— 


Natives name. 


DATE: A string of i2 characters passec to a file as the 
day, month and year for tracking tne last time a file was 
accessed. 


DATELINE: String of {2 characters which gives the last dats 
that tne filles was accessec. 


DEFINITION: Strwag of 33 characters wni cn gives the snort 
Version of tne problem definition. 


DOCUBLECOUNTED: An integer counter used during the merging 
of files process. 


Pedss GMC is Boolean sxpressicn used when checking tne 
Valicity of a filename. 


FILE DR Ve: Single character denoting the drive the data 
files reside oan. 


PLAGEDOCEE: A string of 1 character used to set users 
probiemtfiag. 

-~LAGCOUNT : Tntegers used for tracking the arrays, aaqvancec 
ones for each recerd. 

FLAGEND: Integer that counts ali files with tne same 


problem name and the same flag setting. 


FLAGGED: Singie character used to check committee member 
status prior to merging files. 


FLAGI: Integer denoting level i. major criteria. 
FLAG2: Integer denoting ievel 2, sup-criteria. 


FLAG: Integer denoting ievel 3, tertiary criteria. 
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mgie character genoting cne drive the 
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HELPER: Single character that indicates tae  aceive Ff 


SC 2m. 
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HELPSIZE: Integer parameter passed to determine the size of 
the helpscreen. 


iNPi STRINGS Used with the vartabie STRINGERRAY, as a 
passed parameter ts the orecedure SettThekeys. 


INVOGCATOR: Mm Sangie character sither a ‘WwW’ or ‘MN’ uses to 
determine whether the user is a problem invcocator (M), or 4a 
committee mamber ff). 

Peace hoes an integer counter used during the sorting 
routine to keeco the rscords in the variacus levels in the 
order in which they were entered. 

Pie LAr ieee filecer) CRIREE: 

Mis An integer ocarameter passeqd to a gorocedur® cencting 
tne number or records in an array. 

Lees Intecer set to the maximum number of records in an 
array. 

Livelink = Sociean @exoression usec to advance line counter 


S 
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MARKER: Integer used in conjunction with the qotcxY call 
when pesiticning data on the screen. 


MEMBER: String of three characters which indicates that 
Prere “25s a fiie™in the"™00S directory with the extension 
using this members name. 


MEMBERS: Used in conjunction with the record PROBREC. 


MOVEOVER: integer used in conjunction with the gotoxyY cali 
fGr positioning data on the screen. 


MOVE X: Integer used with the gotoxY statement positioning 
data on the screen. 


NAMES: Variable used with the record CRIREC and array 
CRITARRAY. 


NAMESTRING: A string of three characters that is used as 
the extension when recalling the user's fiie. 


NEWCRITLIMIT: integer denoting the maximum number of alter- 
natives/criteria allowed. 


MEWLIMITs An integer limiting the number of entries that 
can be made for alternatives/criteria. 


MEWNAME: 3 character string used when verifying filenames. 
NEWPROB: Singie characters used for YES/NO type questions. 


NEWSTRING: 12 character string denoting the file to be 
used. 


NUP: Integers used for numbering the criteria/alternatives 
vyhen displayec on the screen. 


NUMMEMS : Integer that tracks the number of members on 


a 
particular committee. Minimum value of 2 and maximum vaiue 
aioe to). 

ONCECOUNTED: A boolean expression used in the merging 
process. 

FPRINTONE: Boolean expression used when printing alterna- 


ives/criteria. 
FRORBARRAY : An array Gf the records in the format of FROBREU 
PREBLE: String of seven characters which indicates that 


there is a fiie in the DOS directory beginning with this 
string. 
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PROBLEMFLAG: Single character used to track the status 
the user who is icgced on to Touchstone. 
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PROSNAME : A& string of seven characters that 15 used as the 
first seven letters when recalling a user file. 


PROS: Variabie used with the record PROBREC and array 
PROBARRAY. 


PT1, FT2, PTS and FT4: Integers used as points when defi- 
ning the various windows used in the svstem. 


GUITFLAG: Inteqer used in moving from level to tevel in the 
alternatives/criteria data entry. 


QUITFLGi, QUITFLG2, GUITFLGS: Integers tracking the number 
of alternatives/criteria at the various levels. 


RECOUNT : Integer used in positioning the pointer when wri- 
ting to a users problem file. 


SER Glee aits Boolean expression that controls the use of the 
arrow keys, so that they may oniy be usec during certain 
portions of the program. 


SECNUM: Integers used for numbering the criteria/alterna-— 
tives when Gispiayved on the screen. 


SELESGV=2; Integers used for tracking the arrays, advanced 
once for each record. 


SHOWME = Integer used in moving from level to level in the 
alternatives/criteria data entry. 


STARTMERGE: A boolean expression, that. when true aliows 
ail tiles witn the same problem name to 35e mergec into one. 


STARTUF: Hoolean expression used in several procedures to 
check the valicity of the file requested or to check far 


Guplzication. 


STATFLAG: Character that tracks where the user 1s in the 
system. 


STRINGARRAY : An array of 1 to S? characters, used in 
conjunction with the procedure GetThekevs. 


STOFGAP : Boolean expression used to stop alternatives/ 
criteria input beyond a predetermined limit. 


STOPES GG.< Roolean expression, if true terminates a proce- 
dure or the entire program, depending on when it is toggled. 


TEMPFILE: A temporary file using text vice records. 


TEMPNAME : string variable used for encoding and decading 
user passwords. 


THRNUM: intecers used for numbering the criteria/alterna- 
tives wnen displayed on the screen. 


TRACE 2: integer denoting number of records in an array. 
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USERCODE: 8 character code used to veri+ry passwoa 


ae 


WEEDDEF : Boolean expression used to activate the Fl kev 
wnen the proeram goes past the orobiem selection stace. 
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PROBREC: ts the master record that hoids the toilowing 
information on ali of the problems in the system. the 
folicwing variasbies comprise this record: 


CHECKCHANGE: A single character used to contirm whether the 
problem is an Alternative or Criteria. 


GHESESTATES Is a single character used to track the user's 
position in the system. 


ee A singl2@ character, ‘A’ or a for ALiternatives or 
Pia. useag for assignment or comparisons. 
DATELINE: String of iS characters which gives the iast date 
that the file was accessed. 


DESZHT 2ceNe String of 38 characters wnich Gives tne shart 
version of the crobiem definition. 


MEMBER String of three characters which indicates that 


there is a4 222 in the DOS directory with the extension 
using this members name. 
NUMMEMS s Integer that tracks the number of members oan a 
DQarticuiar committee. Minimum value ct 2 and maximum vyaiue 
Ot res 
ROBLES string of seven characters which indicates that 

there is a fii@eiin thre DOS directory beginning wrth this 
Stiri oe 

CA URE: Is a recora that is contained ina fiie in vas. 
Ther2® 2185 one fi12 for Bach committee member for each 
specific arcblem. The record contains the fallowina 
informations 

Che Sre a Nis inteder senoting the sum of the first three 
fie in thas -ecorca. TrRese records are sortec cn tnis 
fieid to keep them in order according to the level of tie 
data, 1.2 & ili would equate a piece of data under tie 


fiFSt major criteria. under the fi se. sue Goto. a 


Or i DEF s String of 38 characters defining the above 
Variabie CRITNAME. 


CRITNARE: String of 190 characters denoting criteria/alter- 
natives name. 


FLAG: Integer denoting ievel ti. major criteria. 
PLAGE: Integer denoting ievei =, sub-criteria. 


FLAGS: Integer denoting level 3, tertiary criteria. 


STATFLAG: Character that tracks where the user is in the 
system. 


Ai 


APPENDIX C 


SCAEEN PURMAnS 


FIGURE 1 
TITLE SCREEN 
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PRGGRE = 
DATE SCREEN 


TOUCHSTONE 


THe CORRECT DATE 15 VERY IMPORTANT 


TG TrHeE 


SROPER FUNCTIGNING GF TOUCHSTONE: 


Jar 26, i19387 


Is tnis date carrect 7 ¥ 


FIGURE 4 
INTRODUCTION CGPTION SCREEN 


TGUCHSTGONE 


WOULD YOU LIKE AN INTRGDUCTIGN TO TOGUCHSTGNE? 


aa 


CY ZN) 


* 


FIGERE so 
INSTRUCTION SCREEN #1 


TOUCHSTONE 


* INTRODUCTION & INFORMATIGN * 


The TOUCHSTONE preongram is designed to assist you ir 
developing functional and meaningful group criteria for 
a Group Decisicn Suopert System. Utilizing the TOUCHSTONE 
prengram, you will be adie ta candernse a large list af 
spermtanecusiy-considered criteria inta a campact, weli- 
oefined., GROUF-SELECTED set cer criteria. 


(PRESS ANY neyY TG CONTINUE? 


EEGYRE'G 
INSTRUCTION SCREEN #2 


IOuUcArSTOGNe 





€ INTRODUCTION & INFOURMATICN iconmtinued) & 


These criteria wili ce uniqueiv desianed te assist you ir 


resolving yaur current proebdbiem, whatever 1% miant be. 
Instructions, specific ta eacn portion af the pregram, may 
be called at arv time by pressing the <«F-1> ("HELP") kev. 
Ccrmmuanicatian between "Ccammittee members” is accomplished 


Vila tne "Cnmatteroox”’., an eiectranic moetevad wnicn 16 


CRESS ANY KnEY TO CaONTinuc>d 





FIGURE 7 
INSTUCTION SCREEN #3 


TOUCHSTONE 


* INTRODUCTIGN & INFORMATION tccomtinued) * 


Calileco by tne (F-2> kev. tr extended explanation of tne 
probiem an which you are working may be seen by pressing 
the (F-S3> kev. Specific infermation for the use of these 
nay be found on-screer: at the battcasn oF each fiash—-up bex. 
TGUCHSTONE proceeds through three ieveis of criteria 
ceveiapmerit. At the eno ef each lievei, the incgivaduail 


(BRESS ANY KEY TO CONTINUE>D 


FIGURE 8 
INSTRUCTIGN SCREEN #4 


TOUCHSTONE 


© INTRODUCTIGN & INFORMATION (comtinued) * 


criteria are cambineo for oreup cecisicm and editira. Grice 
there 1S agreemert or this level af criteria. TOUCHSTGNE 
moves orn ta the next level and the next until the THIRD 
levei has beer ccampieted. Fanaiiy, there is an opporturity 
ta edit the ccampleted iist. This iist is ther ready for use 
with 4a DSS to evaiuate the soecifics for eacn criterion. 


(PRESS ANY KEY TO CONTINUE) 
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FIGURE? 
FILE INITIALIZATION SCREEN 


TOUCHS TOWNE 


* FILE INITIALIZATIGON * 


First, befare you start, I need same vital informaticm: 
Gri which drive are the HELP files located: 


DRIVE: a (Defauit: Drave #> 


Gri which drive are the cammittee files lacated: 


DRIVE: i (Defauit: Drive k> 


is tne avave antaormatian accurate / a 


FIGURE 10 
INTTIALIZATION SCREEN FOR FIRST FROBLEM INVOCATOR 


TOUCHSTGNE 









The files om Grive H have not yet been initialized. 
For these files, you will need a master password. 
Filease irnput cme naows (Maximum of & letters?) 








Fe 46 45 He HEE te te 


Pl S6tn i 
INTRODUCTION SCREEN (1) FOR FIRST PROBLEM INVOCATOR 


TOUCHSTGNe 
GREETINGS. NEW CROBLEM INVOCATOR: 


Hs the persarn iIritiatinag this capy af TGUCHSTUONE, 
you are cesiannated as the: 

"Bropnliem Irvecator”. 
As such, you are the one to define the pradiems, 
select the committee membership, arid perform the 
varicus cther maintenance functiocris. Yau may, af 
course, designate ather problem irnvoecators if yau 
sco desire, or maintain cortral by yourself. The 
choice is yours. 


Fer langq-or purpeses, I will need ta krnaw your 
Imitials ‘ta maxamum af 3): Hee He 


FIGURE 12 
INTRODUCTION SCREEN (2) FOR FIRST PROSLEM INVOCATOR 


TGUCHSTONE 


Thank you far yaur wmitiriais. You wiil need ta use 
these ta icerntify yourself ta tne Camputer each time 
you lag cnr. Wher yoau oo lag or te TOUCHSTONE, yar 
wiil need ta use the Prablem Invocatcor Password if 
you wisn to identify yoeurseif as the prapsliem invocatar. 
Far this version of TGUCHSTGNeE, that password is: 

He He WINDMILL 46 


(Yau should memarize this password for future use. iF 
you wish, you have the cotior to change it ir the 
Preniem Irvoecatar Menu. ) if you prefer ta icygq orn as 

a ccunmittee member instead, you will need a perscral 
Dasswerd cf your awe. Tmis word (letters only) carn be 
uo ta G&G ietters in lenotnm: #0 40 te 46 HE He te te 
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Ea GURe si. 
INFUT COMMITTEE MEMBER/PROBLEM INVOCATOR INFORMATION 


TOUCHSTONE 


ee COMMITTEE MEMBER INFGORMATIGN  «* 
Now 15 a good time to input the initials af those 
pecple yeu know will reed to have access ta 
TOUCHSTONE. Please input their iritials ard, for 
each, designate whether that individual is to be a 
CPjirebliem invecater or merely a (Cicmmnittee member. 
(The default choice is Ccammittee member. ) 


Initiaiss 4 Access level (P/C): (CCI 


(Write *“2Z2Z2* ta exit) 


FIGURE i4 
ACCESS AFPROVAL SCREEN 


TOUCHSTONE 


ACCESS APPROVED — WELCOME TO TOUCHSTONE! 
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PiGun es 
ALTERNATIVE/CRITERIA CHOICE SCREEN 


TGUCHSTGNeE 


Are you develeping Alternatives or Criteria? A/C 


FIGURE 16 
MAIN INVOCATOR MENU SCREEN 


TOUCHSTGNE 


INVGCATOR menu 


Prablem File Manipulation 
FPersoeommel Fiie Manipulation 

Print/Chat File Marninulation 

Charme, Aiternatives ta Criteria Settina 


Exit te DOS. 


che Ge 


FIGURE i7 
PROBLEM FILE MANIPULATION SCREEN 


TOUCHSTONE 












INVOCATGR meNu 


Kenirs New Prabdlem. 
; Delete a Prabiern. 
. Check Status on a Specific Prabdlem. 
Exit ta Maairs Menu 






> b) fu = 





Select ian: 





FIGURE 18 
PERSONNEL FILE MANIPULATION SCREEN 


TOUCHSTONE 


INVOCATOR MENU 


Change Proaolem Irvacatoar Passworo. 

Add/Detete a Preabiem Irnvecatar. 

Add a Ccrmmattee Member Ta Ar; Existing Ccunmittee. 
Delete a Member Fram Gri Existarn Ccammnittee. 

Exit toa Mair Meru 


Ch GW) We 


SeeSe iio); 


~ 


PIi6URewes 
FPRINT/CHAT FILE MANIPULATION SCREEN 


INVGCATOR MENU 


i; Prant Gut Chatterbox far Aiternatives. 

ae Print Gut Cnatterbox for Criteria. 

de Ciese a Chatterbox Fiie Which Has Keer 
Left Open Acciderntaily. 

4. Print Gut Deveicaped Aiternatives. 

we Print Gut Deveicped Criteria. 

6. Exit ta Mair Meru 


FIGURE 26 
FROBLEN CREATION SCREEN 
(with PROBLEM EXPLANATIGN INSERT) 


TOUCHSTONE 


Please enter the name ar tne new orcdier. 

The name must net exceed sever letters: RGAT 
Please give a cme lilne definition af tne prebiems: 

I WOULD LIKE TG BUY A BOAT 

De you wish to elaberate om that definition’ 

PROBLEM EXPLANATIGN 
This 15 a Chance ta puyv a peat, but I need tea 
know hew bin, New pewerful a beat te buy and 
within what price range I should consider a beat. 














Se: UP AON ARROW KRETS. HOME, END. PG URL PO DN. F-1LO0tauit) 





ce: 
pa i 





Prsuneees 
PROBLEM CREATION SCREEN 
‘after PROBLEM EXPLANATION INSERT) 


TOUCHSTONE 


Piease enter the name of the new proolem. 

The name must net exceed sever: letters: ROAT 
Please give a one line definitior of the problem: 

I WOULD LIKE TO BUY A BOAT 


Do you wish to elaborate cm that definition? iv; 
How many members camprise this committee? 2 
Members names: MEN 

BOE 
Wiii communications and criteria be anonymous? N 


FIGURE 22 
FROBLEM CREATION SCREEN 


TOUCHSTONE 
SROEBLEM 
ROAT 
CAUTIGN:?:! Eriterino a preplem name from tnais list, will 


Gelete ALL files with tnat name. Ta quit witnaut deleting 
a pretlem, press File. 


Eriter the craplem you wisn ta delete: 


FIGURE 23 
FROBLEM STATUS CHECK SCREEN (1) 


TOUCHSTONE 
PROBLEM 


BOAT 


Eritering a Prabdiem name fram this list will tell you 
Wher & inember last accessed a Preabliem 


Enter tne name af tne FPrabiem: 


FiGURE 24 
FROBLEM STATUS CHECK SCREEN (2) 


TOUCHSTONE 
PROBLEM MEMEE RK DATE 
BOAT MEN Empty File 
BGAT ROE Emoty File 


Press FETURIN ta caontirue. 


BLGURE “235 
CHANGE FROBLEM INVOCCATQR FASSWORD SCREEN 


TOVUCHSTGNE 


INVGCATGOR MASTER CGDEWGRD CHANGE 


THAIS secticn of the preagram will allaw yau ta change 
the Prabiem Invocatar Password. Der? t forget that 
you will need ta inform all other problem invacataors 
of tne new Password if you wart them ta have access 
ta Touchstcene. 


For this version af TOUCHSTGNE, that passward is: 
HEE He WINDMILL 46 4 
Piease input tne new Predlem Invacatar password tbelaw: 
$e te He He He HE 46 He 
(Maxamumn af & letters) 


FIGURE 26 
ADD/DELETE PROBLEM INVOCATOR/COMMITTEE MEMBER SCREEN 


TOUCHSTONE 


INVGCATGR MASTER STATUS CHANGE 


Trias sectian af the ocragram will allaw you ta add, 
delete, ar charue the status af ary persan you wish. 


Please enter the irnitiais of the individual yau wart 
ta ada/delete/change (GOR> Bress eriter ta return. 


INITIALS: ABD 


"REDDY NOW HAS ACCESS TG TOUCHSTGNE. DG YOU WANT "ARD” TG 
BE A PROBLEM INVOCATOGR GR COMMITTEE MEMBERY C6/C) € 


Ch 
Cf 


FIGURE 27 
SCREEN TOG ADD A COMMITTEE MEMBER 


TOUCHSTONE 
SROEBLEM 


BGAT 


Please erter the name af tne srebdlem ta which you 
wish toe add a memcter. 
The name must oe lasted anave: ROAT 


FIGURE 72a 
SCREEN TO DELETE A COMMITTEE MEMBER 
FROM AN EXISTING COMMITTEE 


TOUCHSTONE 
PROBLEM 


BaAT 


Te Quit watheut ocoeleting a Member, Press FI. 


emter the Memoer's PROBLEM: 


FIGURE 29 
PRINTOUT SCREEN 


TOVUCHS TONE 
BROERLEM 


BOAT 


Entering a Prabvlem Name from tnis list will prirt that 
file fer vau 
To Quit witheut printing a file. Press F190. 


Eerter the name af the Praoliem: 


FIGURE 3S 
CLOSE CHATTERBGX FILE 
(IF LEFT GFEN ACCIDENTALLY) 


TOUCHSTONE 


Prapbpiem F1lie Name: BOAT # 


CHATTERBOX FILE CLOSED 


FIGURE Sf 
SCREEN SHOWING CHANGE GF ALTERNATIVES TO CRITERIA 


TOUCHSTONE 


INVOCATOR MENU 


Prabiem File Manipulaticers 

Perscrmel File Manipulaticys 

Pranmnt/Chat File Mari npulaticans 

Charine, Aiternatives ta Criteria Settina 


Exit ta DOGS. 


Ch OI fu 


SELECTIGN: 4 
Is this selecticn carrect’ ‘* 
You are naw oevelcping Criteria 


FIGURE 32 
COMMITTEE MEMBER SIGN-OCN SCREEN 


TOUCHSTONE 


*«* SIGN-GN INFORMATIGN <*«* 
Wnat are your initiais’  HG65b 


What 15 your user (ar irvoecatcor) password? eRe H 
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FIGURE 33 
COMMITTEE MEMBER MENU SCREEN 


TOUCHSTONE 














COMMITTEE MEMBER menu 





At tne presert time, you are a memnoer crs Ccunnattees 
Giscussirng the fallicowiriq prapviems: 








BOAT 


SELECTIGN CHGICES: 1) Cnecase a pranies =) Exit ta DGS 
SELECTIGN: * 







FIGURE 34 
ESmMitlEl MEMEER PROBLEM INT REDUCTION SCREEN 


TOUCHSTONE 


O short. ane line cefiniten of BOAT teiilcws. 


I WOULD LIKE TO BUY A BOAT 


If at any time yeu wish ta see a mere in 


depth exolanaticon af the preolem, press Fo 


Press Return ta canmtinue 


FIGURE S35 
SAMPLE COMMITTEE MEMBER WORK SCREEN 





TGUCHSTGNE 
Doe you Wism ta Charnne a portacan af the Alternatives” 


Press Hcame Key ta activate Scrallirna. Press Enter 
Key before answering the questicn after Scrailirg. 


i. LENGTH > THE LENGTH FROM THe BOW TO THE STERN, INCLUSIVE 
<. WE IGHT > TOTAL WEIGHT GN DRY CAND, WITH BOAT EMPTY 

3. DISPLACEMT: WEIGHT GF WATER DISPLACED BY EMPTY, FLOATING BOAT 
4. COLOR >: CGLOR GF HULL 

Se MASTS >: NUMEER OF MASTS (1,2, GR 3S) 


Hiternative BDeveiapmernit 
inout Final HGLGirng Review Hiternatives 
FiscHein FOE=CHATTERERGX F3=Prapiem Explanatian Fid=Guit CHATTERKERGX AVAILABLE 


FIGURE 36 
SAMPLE COMMITTEE MEMBER WORK SCREEN 
(with FROBLEM EXPLANATION INSERT) 


1GUCHS TONE 
Da yau Wish ta Change a portion af tne Hliternatives? 


Press Home Key ta activate Serclilinno. Press Enter 
Key befcere answering the question after Scrailing. 


i. LENGTH > THE LENGTH FROM THE BOW TO THE STERN, INCLUSIVE 
= WEIGHT > TOTRL WEIGHT GN DRY LAND, WITH BOAT EMPTY 

Se DISPLACEMT : WEIGHT GF WATER DISPLACED BY EMPTY, FLOATING BOAT 
4. COLGK > COLOR GF HULL 

Se MASTS PROBLEM EXPLANATIGN 





THis is a chance ta buy a beat, but I need tea 
krow Now 61g, hew powerful a beat ta buy and 
withir: what price range I sncauld consider a baat. 





Seq ARRGW KEYS. HOME, END, PG UP, PG DN, TAR, DEL, RETURN 


Hiternative Deveicsment 
Input Firat Haidina Review Alternatives 
Fix=zHelo F2=-CHATTERRBOX Fsa=Praplem Exolanat ier F1iV=Guit CHATTEREGX AVAILABLE 
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FIGURE 37 
SANPLE COMMITTEE MEMBER WORK SCREEN 
(with CHATTERBOX INSERT) 


TOUCHSTONE 
De you Wisnm ta Cnhanoe a partion af tne Giternatives? 












Press Home Key ta activate Screalling. Press Enter 
Key befcere answerirnon the questicn after Sereliarng. 


i. LENGTH 2 THE LENGTH FROM THE BGW TG THE STERN, INCLUSIVE 
2. WEIGHT >: TOTAL WEIGHT GN DRY LAND, WITH BOAT EMPTY 

S- DISPLACEMT: WEIGHT GF WATER DISPLACED BY EMPTY, FLOATING BOAT 
4. CGLOR >: COLGR GF HULL 

Ss. MASTS >: NUMBER GF MASTS (1,2, GK 3) 


CHATTEREGX CF~-1 for help, F-10 te quit) 
WORDPROCESSING SECTIGN LINE #: 6&2 


Thais is the first erntry of the chatterbox for the 
Koat pratlerm. This 1s just tne benirinina. 


* MESSAGE ENDED: OC1/26/1967 © 16:24 «eee BOR «nx 





2. ARROW KEYS. HOME, END, PG UF. PG DN. TAR, DEL, RETURN 


Riternative Develaonomerit 
Inout Farnai HGOidara Review Aiternatives 
FisHelop Fe=CHATTEREGA Fa=FPraplem Explanation Fid0=Guit CHATTERHOX OVOILABLE 
FIGURE 38 
SAMPLE COMMITTEE MEMBER WORK SCREEN 
(with CHATTERBOX HELP SCREEN INSERT) 


TOUCKHSTGNE 
Da you Wisn to Change a portion af the Alternatives? 












CHATTEREBGA HeLP SCREEN 
WELCOME TO THe WONDERFUL WORLD OF THE CHATEREGX! 






Ve Ee Thas little tox allows you te ccammuricate waitn VE 
—s WE ctner members cf your cCammittee on items which 

De DI need that special touch af persar ta persars BOAT 
4. CG communicatior. Let me tell you thew it works. 

Se Mr 


1) When you call uo CHATTEREGX, you wili be ce quit] 
taken to the end cof yaur last erntry. If you LINE #: &2 
USE: ARKRGW KEYS, HOME, END, PG UP, PG DN, TAR, DEL, RETURN 


This is tne first erntry of tne chatterbax for the 
BKoeat proeolem. This is gust tne begirnmring. 


* MESSAGE ENDED: O1/ 26/1967 © 16:24 weee FORK x0 « 





Se: ARROW KEYS, HOME, END, PG UP, PG DN, TAR. DEL, RETURN 
Alternative Development 
Inout Firnal Holding Review Riternatives 
Fi=sHelp FE=CHATTERHGX FS3=Preoblem Explanation FiG=Guat CHATTEKEGX AVAILABLE 


ol 


Reon s 
SIGN-OFF SCREEN 


TOUCHSTONE 


THANK YGU FOR USING TOUCHSTONE —- HAVE A NICE DAY! 


er ag@iwomen | OUCH: 


RAPPENDIX 9 
PROGRAM LISTING 


type 
CODEARRAY = stringli2d; 
var 
HELPDRIVE, FILEDRIVE, AUTHORITY : Char; 
INVOCATOR = char: 
tege fee Tee ce 
NAMESTRING, NAMECHECE 2 -Sthingto J. 
Poe he CDE Stim coe. 
TEMPNAME, CODENAME ees Cini WG eer 2 3 
womer (CLTERA.LIB3 
fae lLieRB. Libs 
fe Li eRE.LIBG 
5egqin 
a i 
GETTHEDATES 
INTRODUCTIONS: 
Lr ser $ 
gotexy (14.59):3 
write (°Checking flies - please stand by’): 
meee | HEF liLeSs 
gotoxy (14.9); 
write (‘Checking files - please stand By‘); 
INVOCATQFR := ‘W’'; 
VERIFYCODE 
assign TEMPE I fae UR IVEF IL. Trier 23 


rewrite (TEMPFILE); 


WewseHwearmeE == concat tHELPDRIVE, FILEDRIVE, AUTHORITY, 
NAMESTRING, INVOCATOR, “RIMMY ‘) 5 

CODENAME := ENCODE (TEMPNAME) ; 

Sevecein © lEMPFILE,COCDENAME:) ; 


moose EMP iLE) s 


emd. 


wprogram 


TEBE HSd &. 


type 


STRING? 
one NGS 
STRINGS 
STRINGIS 
SIRINGiI Zz 


FPROBREC 


'- 
“Al 
bei 
a 
i 
07 


COBESRRAY 
STRINGARRAY 
Lai TARRAY 
FROBARRAY 


ole ORT Ver 
INVOCATOR, 
FiLepeR ive. 
PROBLEMFLAG, 


Eee 
CHANGEREC 


besoin 


STOFGAP, CHATOR, 
WEEP Der . FILECHECKE 


lI 


He | 


AT : 


pragram BTOUCHCINPUT ,QUTPUT?) 5 


SiR NG. 
STRINGL SI; 
STRINGLESs: 
S'RINGLiGIs 
STRINGE i249; 


record 
TSEHELCER STATE 
CHECK CHANGE 
CHhre= 
PROBLEM 
NUMMEMS 
MEMBER 
DEFINITION 
DATELINE 

ends 


record 
FLAGI 
FLAb2 
FLAGS 
CHECKPOINT 
STATFLAG 
CRITNAME 
CRITDEF 

end: 


6é ee oad au ua 6s «88 


STRINGI2 
arravii..591] 
arrayili..3@] 


Nou 


CHAR; 


CHAR: 


SCRGEEI, 


: HOOLSAN: 


ANCNYMOUS , STARTUP, ShGerPRGsS. 


AUTHORIZED, PRINTONE > BOOLEAN; 

Tj. Os. (Pie ete 

COUNTED, MOVEX, M : INTEGER: 

We - Xe Pies tome 

CLEARIT. MOVEOVER : INTEGER: 
No TS etRee 


res 


ot 


CHAR s 

CHAR; 

CHAR: 
STRINGL 74; 
INTEGERS: 
STRINGS: 
STRINGtSSge 
STRING 


INTEGERS 
INTEGER: 
INTEGER: 
INTEGER: 
CHAR; 
STRINGI@;: 
STRINGCS8i: 


Of CHARS: 
of CRiRee. 


arrayll..2440] of PROBREC; 


bt ee es 


COUNTER, > INTEGER: 
eee | ha.) CUSECNUM. 

SEGSETED.,  ©LAGCOUNT : INTEGER: 
S. L. NUM,  THRNUM. | 
Meee Size. INTEGER: 


pe) 7ePROSLEMF ILE 


eee 1 LT RG 
iets Ls 
eee. Los 
Ei PerSr ins 


tenn 7 ata Lt) 
orem y. _ 1s 
FRONTEND.LI®B?> 


CH, CHA, NEWPROB. CHOICE, 

ALTERNATIVE > STRING: 
NAMESTRING, NEWNAME : STRING=: 
PROBNAME : STRINGL72; 
NEWSTRING, CHATRFILE, DATE =: STRINGI2; 
PROBS > PROEBARRAY; 

NAMES : CRITARRAY: 
INFUTSTRING ; STRINGARRAY: 
CRITERIA : CRIREC: 

MEMBERS : PROBREC; 
KRITERIAFILE ; file of CRIREC; 


file of PROBREC; 


procedures FrocManipuiation: 


CHEK KKHREKRRE REE ERHE KEKE HHE HERE K HRP HER RHR EKER EKRKRHEKHRKR KEE 


&% 


* ORK OK KK KOR KR KOK KH OF 


PROCEBURE 


SUPTORTS PROGRAM 
LUCAL VARIABLES 


GLOBAL VARI 
ARRAYS USED 
EATERNAL CALLS 


EATERNAL FILTERS 


CALLED FROM 
PURPOSE 


ABLES 


PROBMANIFULATIC 
ATOUCH. PAS 

CH, SELECTION, 
COMPLETED, CODE 


M 


CONTINUE, 


TNE ts (ASN G ya See re SP 


NONE 
NEWPROBLEM, DEL 
Che CKAPROBLEM. 
See Se eit 
FILTER?.CIB. 
WIMNDOWL 


SETS UP A MENU SCREEN 


ETEAPROBLEM, 


Sees 


FRONTEND.LIEB 


FOR THE 


INVOCATOR TO ACCESS THREE 
DIFFERENT MANIPULATIONS 


CONCERNING 


PROE 


LEMS. 


OK OK OR RR Ok OK OR kK kk 


MRE RRA MEA ESSERE ER RASS HH KRER ER SRE EEE KER SEHR E RRR SRE REARS) 


Wal” 
cin 


- Gina s 


Seer Wile - otRiNGei ds 
CONTINUE CeMPeete: >: boclean; 
TEMP reAeSse se ears 
SoBe pe Pie oe pee 
begin fprobmanipulations 
completed := falses 
repeat 
Slt Sci 3 
qotoxy (22,35)3 write {(°INVOCATOR MENL’) ; 
gotoxyt(14,7)3 write i(’1l. Beaqin New FProbiem.('}; 
gotomy‘t1i4,8); write ¢'2. Delete a Problem. °);3 
gotoxy (14,9); write (°3. Check Status on a 


Specific Frobiem. °); 
gotoxy(1i4,10); write (°4. Exit to Main Menu’); 
gotexy (25,14): write (°SELECTION: *‘)3 


repeat 
GOERKYy 7 (Sa. write ('# 53; 
repeat 


gotoxy (25,14); 
getthekeystfinputstring,1i); 
SELECTION s:= inputstrings; 
vai (Seiection,Seiected,cade/; 
untii SELECTED "smi Se 
GoLeGiw 70 lee ess wricei{°is this seiectian 
COFr ect 7s. , 
qotoxy “48,1273 
gotoxy (440,15); 
repeat 
read (kbd,CH?; 
17 CH in [’vy’,'’n’]d then 
CH 3S Cnr (ome on? oon 
until CH tm CY fee eo 
wiri Te cOH) s 
i CH in [C’N’IT then 
CONTINUE := false 
eise 
CONTINGE := trues 
until CONTINUEs 
case SELECTED of 


write i°¥ "33 


1 : NewFrociem; 

<= : DeleteAPrabiem;: 

= & CheckAFroblem: 

+ 3. COMPLETED Ss) ewe 
ends icase CHS 
LoadEmuUps 


uncil compieted; 
completed := talse; 
ends; fpropmanipulatians 
procedure PersManipuliation; 
(KEEEHE EHH RKRKEAEEK ERR ERR AH HERER RARE REE ERR KE EHR ERHRRRR EKER ER RES 


er ROce lune > FROCDURE FERSMANIPULATION * 


o6 


SUPPORTS PROGRAM 
LOCAL VARIABLE 


SLOBAL VARIABLES 
ARRAYS USED 
Pie Set OSE) 
Swen GALLS 


GATERNAL FILTERS 


CALLED FROM 
PURPOSE 


ee OK ROK RK KOR OR OR OK KOK OK OK 


ae Fd 


BTOQUCH.PAS £ 
Gris SeLeeTion, CONTINUE. it 
Lan peSle oo favs * 
BGS voimo NG. Selo e ier * 
MONE * 
NONE * 
ve? THERE YS. -CHANGESTAIUS. * 
ADDAMEMBER , DELEGEAMEMBER, & 
LOADEMUF * 
PILIGR?7.LiS., Sliven. lan * 
FRONTEND.LIS * 
WINDOW1I * 
SENS UP AMEND SCREEN FOR THE * 
INVOCATOR TO ACCESS THREE & 
DIFFERENT MANIPULATIONS * 
CONCERNING PERSONNEL. * 


KEBLE RRR RRA EEK EK RRR ER EEE ERR EKER EERE EERE RHEE HEHEHE) 


var 

ci 

SeLectT IGN 

Gent t6we , COMPLETED 

SEpe 

Degin {PersMmManip 
comopletea := fai 
manpeat 
, Cleese. 


Goace.y (22,3) : 
gotexyta,4); 
Password. '); 
gotoxvt(5.7)3 
Pavocetor. “ds 
GSEs Y +o. au2 
write 
Committee. ‘}; 
gotoxvetdo.7)5 
weite (¢'4., 
Committee. '); 


oof ay. 
% cast 


Ada a 


Delete a Member From An 


crar 3 
STRINGCI SG; 
booiean: 


INTEGER: 
iations 
Se: 
write (° INVOCATOR MENU’); 


write (’1t. Change Problem Invocator 


write ({(°2. Add /Bselete a Problem 


Femmittee Memper Ta An =xisting 


eS. 
a 


qotoxyi6,1@); write (’S. Exit to Main Menu’); 
Geeeany (2o,2 4) write 4 SELECTION: *°): 
repeat 
qotoxy (35,14); write (°#')s$ 
Tapsat 
Qagexyvy (35414) 5 


gettnerkeystinputstring,1?; 


Scie Gil eiae: 


= inputstring; 


Val (Selection,Selected,code);: 
Hatt) SELECTED imptis.53;3 


peer) 3,5 
goroxy 
gotoxy 
repeat 

read 


Botox yet(ic, ls? s 


(4,15): 
(49,15): 


write(’Is this selection 


write ¢°Y¥'); 


(Kid ,CH) 5 


Tesh ee 
CH s= c 
uGmtcil Geen oe 


wien tecCH) s 


» nd then 
ne (ard (CH) -32) ; 
“SES bes 


if CH in CFC 'N’? then 
FONTINGE := faise 
eise 
FGNTINUGE 3s= true; 
until CONTINUES 
case SELECTED oF 
1 : CHANGESTATUS; 
2 3: cthangestatus; 
o> : AddAMember; 
4 : DeleteAMember ; 
J 2 cOMELE TED =: = stare: 


ends fcase CH; 
LoadEmUps: 
until compietecds 
compieted := faise; 
ends (FPersManipulat 


rocectre Chae 


a9! 


tManitouiation 


Lan 


{Hee EE EEE ERR ER ERE RR ER EERE HEAR K HERRERA TREE ESHER RE 


% PROCEDURE : 
# SUPPORTS PROGRAM : 
* LOCAL VARIABLES  : 
% 
* GLOBAL VARIABLES : 
* ARRAYS USED 
* FILES ACCESSED 
*# EXTERNAL CALLS 
r 
+e 
* EXTERNAL FILTERS : 
* CALLED FROM : 
* PURPOSE : 
#£ 
<_ 
* 
* 
+ 


CHATMANIPULATION 
ATOUCH. PAS 

CH, SELECTION, 
COMPLETED, CODE 


CONTINUE, 


ALT, SELECTED, INFUTSTRING 
NONE 

NONE 

PRINTCHATTERBOX, 
PRINTALTERNAN DT VesS. Ge CSea tee 
LOBREMUP. Set tmeca: 
FRONTEND.LisB 

AINDOW? 


SETS UP A MENU SERESN --on eae 
INGVCATOR TO ACCESS DIFFERENT 
MANIPULATIONS CONCERNING THE 
PRINTING OF FILES ee Sie afi 
A CHATTERBOX ACCIDENTLY LEFT 
OPEN. 


kk 


ek RO ok ae 


OR ROR Oh we 


SMALE REE ERA KARE REAR ERASER LE EEA AEE RRA ER HAS AAR EHH) 


Yar 

iat 

SEL EBL on 

COAT I NUE. Correa fep 

TERPELAGSE 

Poe 

GegGin (CnatMani pul ati 
ooo eee := false; 
repeat 


chars: 

SURI NGE das 
booleans 
TEATS: 

PMS Gil. 


on + 


So 


Siicstirs 


GQeobey (22,5) 3 write (¢€’° INVOCATOR 

Some 15,5) 3 write <«‘i1. Pre ire 
for Alternatives. ’)s; 

qotoxy (3,6) ; ole eee Pi aie 
for Crlteria.')s 

gotoxvi9,7)3; write (3. Cicse 


Whicn Has Heen'}; 
Soe y os 2 


4 \ a 
sos 


Accicentallyv. 


write t«° 


MENLI") s 
Gut Chatterbox 


Dut Chatterbox 


a Chatterbox File 


Laft Joen 


gotoxy (3,7)s; write (4. Print Out Developed 
Alternatives. ‘); 
gotoxy(8,16); write (°S. Print Out Developed 
Criteria. ‘); 
gotoxy(B,1il)d;s write (°6. Exit to Main Menu’); 
gotoxy(23,14)3s write (‘SELECTION: *');3 
repeat 
eaoacony (Soel 47s Write (@%)>s 
repeat 
g@otoxy (25,14); 


getthekeysiinputstring,i:; 
SELECTION := inputstring;s 


vai (‘Selection,Seiected,cade:); 


UNnt@weoeteerlDl im Ei. oO: 


a 
a 
a 


Sotovpees( | feo) wreitet’is 
emirecit: iY }3 
gotoxy (49,1573 write (4 
gotoxy (40,15); 
repeat 
read (¢kbd.CH); 
27 CH im E’y’.’n 7 then 
Sit t= Chita. Ore Lop soe) s 
niece fiee f « M «hi ods 
wees teilH) ; 
1# CH in T‘N’?D then 
CONTINUE := talse 
aise 
CONTINUE :s= true; 
untii CONTINUE; 
ease ogee feD et 
io: begin 
alt <= ‘A’s; 
printchattersox; 
ands 
2 2 DeGa hi 
abcis= Gs 
printchatterbdox ; 
ends 
3 : closefiie;s 
4 : begin 
alt := ‘A’S 


Cn 


orintaiternati ves; 
end; 
begin 

ait. <=" eae. 


this seiectian 


praintalternatives; 


ends 


5& : COMPEETED 


end: icase C 
LoadEmUp; 
until compieted; 


H> 


completed := faise; 
ends; {CnratManipuiatians 


procedure Waincowls 


<= true; 
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* PROCEDURE 

* SUPPORTS FROUGRAM 
* LOCAL VARIABLES 
* 

# 

*  6LGBAL VARTABLES 
# 

* 

* #GRARAYS USED 

# PitLeS ACSESeey 

*% EXTERNAL CALLS 

* 

# 

*% EXTERNAL FILTERS 
*  CALBED Fra 

te ee 

* 

* 

4 

% 


* 


WINDOW1 

BTOUCH. PAS 

CH, SELECTION, CONTINUE, 
COMPLETED, CODE, TEMPALT, 
TEMPAL Ter 


HELPER, HELPSIZE. ALTERNATIVE, 
INPUTSTRING, SELECTED, CHATOK, 


MAMESTRING, FILEDRIVE 
NONE 
ACT IVEPRUPLEME ize 


INTROSCREEN, FPROBMANIFPULATION, 


PERSMANIFPULATION 
LHATMANETPULATION., LOADEMUP 
Pee eer 


MAIN BODY OF PROGRAM BTCUCH. FAS 
THIS PROCEDURE PROVIDES THE MAIN 
SCREEN THE INVOCATOR WORES FROM. 


KE WILL ACCESS ALL OTHER 


INVOCATOR ACTIVITIES FROM THIS 
FROCEDURE, AND EXIT TO DOS WHEN 


THESe Ab? IGS See cane =e =o- 


Oe * KF KR OK BR Kk OK 


eR OR KR RK Ky 


mS 


HKREESRERERHEKE SARE RKRABRRSE ARSE EASES HRE REFER AKRERES HRS R RR! 


Yar 
CH 
Sele leer 
CONT TINUE, COMPLETED 
TEMPE VAGSE 
CODE 
TEMPALT, TEMFALTER 


3ecin cAWindowl > 


LUMPLETED 2= #au see 


repeat 


char: 
STRINGLC ids 
boolean; 
Tec 
INTEGERS 
STRINGLI2); 


aa ea aa an Ga an 


Assian(lactiveprapblemfile,.concat (filedrive, 


' $ PGebow tn fae: 
INTROSCREEN: 
HELPER =) ee 
ELS See 
if alternativ 
beqin 
tempalt 


q 
4 


BS 


"AS then 


“Alternatives ’s: 


_ 
44a 
ij 


tempaiter := ‘Criteria’; 
end 
else 
be2@ain 
tempait 3= ‘Criteria’: 
tempaiter := ‘Aiternatives’; 


end: 
een y tee.) s write (€°INVOCATOR MENU’); 
Beco yiic.a) > Weitew, 22 Fropiem File 
Mami puiation'); 
gonoxnyil=,/): write i'2. FPersonnel File 


Manipuiation’); 


qgocoxy(il2,&); write (’3. Print/Chat File 


Manipulation’); 
gotaxy(12,9); write (‘4. Change, 
*,tempalter, 


‘, tempalt,’ to 


’ Setting’); 


Gacowy tic, 14): write Wea Ex22 £6 UES. = 
Gigeon yt 2s, 14) ¢ write (’°SELECTION: ee jie 
repeat 
Setar (ciel pus Wire to i = 04 
repeat 
gotoxy (35,1473 
getthekeysfinputstring,1); 
SELECTION := inoputstrings 
Yal (Selection,Setected,ccde):;: 
Un mil oeeELlTED ities s 
Gacoxny (18,15): writet‘’Is this selection 


Bemreeete YY"): 


gotoxy (446,15); write ('Y")s 


qotoxy (44,15): 
repeat 
read (kod. CH) § 
le CHa ee YY eam Baeenen 
or Cllr (et ae) — Sf 
untii CH EY", WN  sapbod; 
wri ceo) : 
peep nag 
CONTINUE : 
eise 
SONFILNUE =: true: 
until CONTINUE: 
case SELECTED of 


- 
a) 


faa” 

ae 
is 
+ rt 
ee) 
b iT 
fis) 
ft 


1: FProbManisnuiaticn; 
= : FPersManipulation: 
> : CnhathManicuiation; 
4 3: begin 
if alternative = ‘C’ then 
begin 
alternative := ‘A’; 
tempaiz := ‘Alterna 
and 
eise 
beqin 


alternative :="t =: 


tempait := ‘Criteria’; 
ends 
qotoxy(12,174); 
write: You are now developing  ,tempa 
engs 
9 ¢ COMPLETES 2oataue: 
end; tcase CH 
Loacdemvup; 
MnNtii CORRE aa; 
Chatvbk := Faises 
ends tWindowls 


pont 
rt 


$3 


begin (Main Programs; 


INVOCATOR := 
GETFILENAMES; 
INTROSCREEN; 


‘Ws 


tf not authorized then bdeqin 
qotgsyt ola 
write (“ACCESS DENIED = TSUCHSTONE PREGRAMe2= ee) Fs 
Se@iay (Sa@e@> ; 

ends tit mot authorized: 


if (SUTHORIZED) and ‘invwocator = 'M‘> then begin 
SOGlie li aa): 
write (ACCESS APPROVED — WELCOME TO TOUCHSTONE! ‘');3 
delav (3@@@) ; 
ALTERNATECHOICES 


(4#4###84 cali touchstone programs ****+*) 
if INVOCATOR = ‘M’ then 
windowl; 
{EERE REE RENAE AE REA KEE ARREARS RRREE HSE) 


CF Sstig: 

gotoxy {(4,8)3 

write (THANK YOU FOR USING TOUCHSTONE — HAVE A NICE 
DAY! *>)3 

delay (290G@: ; 

authorized := false; 


ane Chr AUTHORIZED} 


end. (Main Program} 


croearam CTOUCHIINPUT ,QUTFUT): 


type 

Sik SiGl = STRINGCiIO: 

Ste iNGs = STRING: 

STRINGB = SS feeNGee i: 

SiR iriGieé = STRINGCiI&¢I: 

STRINGI2 = STRINGCi2¢3; 

PROBREC = record 
CHECKESTATE 4 Gs helee- 
CHECK CHANGE : CHAR: 
CHOICE : CHAR: 
PROBLEM : STRINGE71: 
NUMMEMS sult PE bEr.: 
MEMBER a ST ee eis core 
CEFINITICN seer. Nie Soe 
DATELINE > Sie ea. 

ends 

Snane © = record 
FLAGI : INTEGER: 
FLSG2 | JNTeGea. 
FLAGS >: INTEGER: 
CHECKPOINT s INTEGER: 
STATFLAG : CHAR; 
CRITNAME : STRINGS: 
Sie =e 2 (‘SURES Bae 1: 

ends 
COBEARRAY = S71Ringeli2s 


=“ 


357i RINGARRAY aisway ela. of cor Chane 
CRITARRAY arraylic.ilS0)] of CRIREG; 
FROBARRAY —Watmioiyolemw22ol Of PRGEeREEs 


J 


iy ec 


HELPDRIVE, CHT, 


INVOCATGR, CHANGEREC : CHAR; 
FILEDRIVE, 
PROBLEMPLAG. HELPER, SLT =: CHAR: 


STOFGAP, CHATOK, SCROLLIT, 
WEEDDEF, FILECHECK : BOOLEAN: 
ANONYMOUS, STARTUP, 

LINEMARK, STOFPROG, AUTHORIZED : BOOLEAN; 


PeGUITFLG@e TRACK Ig COUNT, 
HELPSIZE, PTi, WwW : INTEGER; 
H, QUITFLG2, MOVEX, 

ST?, x : INTEGER: 


i, SUITFLGS, THRNUM, 
MCOVEOQVER, PTS, 
g. CHKFLAGi. LIMMIT, 


_—— 


SELECTED, FTa 


i, CHKFLAGZS, SECNUM, 


NUM 


M, CHEFLAGS. SHOWME. 


SRITLIMIT 
N, GUITFLAG, * 
NEWCRITLIMIT 


FLAGCHOICE, CH, CHA, 
CHOICE, ALTERNATIVE 
NAMESTRING, NEWNAME 


FROBNAME 


NEWSTRING, CHATRFILE, DATE 


TEMPP Tee 


PROES 
NAMES 
INFUTSTRING 


CRITERIA 
VeMBEis 


*, ina! 


AC 


ee 
« 


rm 


i 
iy ee 


ale 
ci 


a 
FR 


{SIF ILTERI.LIB?; 
LETFILTERS.LIBG 
ASIP ILTERS. bie 
FETT. Tera } [o} 
LEiF PL ERo Sie ee 
(SIP ILIVER? se ae 
<PIPIcTeR aoe 
(SITAILEND. LIB: 


Pee 
OSCE Ree 


COUNTER, 
RECOUNT . 
COUNTED, 


CLEARIT, 


NEWPROB, 


oa aa aa 


STRINGI; 
STRING=; 
STRING(7]I; 
STRING12: 


TEXT: 
FPROBARRAY; 
CRITARRAY: 
STRINGARRAY: 


CRIREE: 
FROBREC: 


file of CRIREC: 
file of FROBREC; 


procedures initVariablies; 


(SHEE ERAS HARARE EERE RARE ER EERE REE EERE EEA RAE ERK ERAEEHEEESE | 
Bee ee oh >: <INITVARISBLES 


= 


Oe OK ROK OR KR ORR Rk ROK KO OK ROK 


Sere akio PROGRAM 
LUCAL VARIABLES 
GLOBAL VARIABLES 


AR 
Ft 
Ex 
aA 


CTGUCH. PAS 

CH. TEMPALT 

Pleeeelcoerise Pl4, SULIFLS1. 
BUMELAGS. tL. M. N. GUETFLGS, 
SHOWME. THRNUM, SECNUM, QUITFLAG, 
CHKFLAGI. STARTLP., STOPGAF, 
SCROLLIT, Y, NUM, CRITLIMIT, 
NEWCRITLIMIT, RECOUNT, CHANGEREC, 
CHA, COUNT, FILEDRIVE, NMAMESTRING,. 
PROBNAME, ALTERNATIVE, NEWSTRING. 
MEMBERS, Z, CRITERIA, PROBLEMFLAG, 
INPUTSTRING. CHM 

NONE 

ACTIVEPROBLEMFILE. KRITERIGFILE 
GETTHEKEYS, ODOMETER 

FILTERS.LIB, FILTERS.LIB 


RAYS USED 

a= eee oO oe 
FERNAL CALLS 
TERNAL FILTERS 


as as oa ua ne a6 


ieee i LM NEEDHOPFER MENU 
Ho SiS (NIT TALI4ZES VARSABLES. CHECKS 


Pima S 


aOR OR OR OR OR Ry 


x 


rs 


- eee KR He KR OK 


HEM HEHE EE HEE EE EEE MRE EKER CEM ERA EER HEE ESD 


Var 


Sai CHARS 
TEMPALIT = STRINGCIZ2Z3: 
beqin {InitVariabless; 
ea t= 2s Bie 5 = 225 3 Chee fae pt4 := 21; 
Wemdow pti .pr2.ptl.ot4) : eo See: 
Ser creria.erFiagl > := gs itr lGaees= 1's 
ShewmMe := ds {, s= @: 
Sgpeeria.tiage #=-F Js" Guitriega =s= 1s 
ThrNum := 1s; Mis sae 
Sriteria.flagsS := @3 GuitFigs := 13 
SsecNum := 2:3 Mos= @s: 
SurictrFiag := @s Y s= is Sotint (2— 1 
BmkFlagi := Gs; Num 3:= 135 CHA := ‘N’'S 
pes clip = True; So ieee § = os 
NewCritLimit := 14; 
StopGanp := True: Recount := @; 


aiangersc ;: ; 

Samgplaitec—- Faiseas 

assign (ActiverPropiemFile,.concat (FILEDRIVE, “:FProos.txte 

Reset (ActiveProbiemFile); 

repeat 

readtActiveProblemFilie,Members) ; 

until (Members.Member = NameStrinag) and 
(Members.Froblem = -ropName) anc 
(members.choice = alternative); 

NewString i= Probnametalternativet’. “+Membders.member ; 

Lose tActiverProbliemFile); 

siqnt(kriteriaFile.concat (FILEDRIVE, ’:' ,newstring)?; 


al 
~ 
—_ 
—_ 


“J 


cil 


} s 


). 


reset tkriteriatiie:; 
=z o3i= filesizetkriteriatiisea); 
#¥ =z = 4 tnen 
begin 
Startup := Faise: oroplemrlag := ‘a; 
Criteria.Statfriag := probiemriag; 
members. CheckState := oroeblemtiag; 
n 


ate 
mempers.checkchange := changerec: 
cios@tkriteriarilis); 
ang; 
if ze? @ then 
begin 
reset (KriteriaFile); 
white not EOF tkriteriaFile) do 
begin tWnile Statements 
readikriteriaFile,Criteriad); 
oroblemfiaq := Criteria.StatFlaas 
odemeter; 
ends (While Statements 
ciosefKriteriarFile); 
enc s 
case oroblemri 


2? Pa 


3 then 
tif Statements 
Siternative = ‘A’ then 
tempait i= ‘Aiternatives 
else 
tempalt : ‘Criteria ; 
QGOCGAY (2i ii 
Write ("Do you wish to review your 
“,tempait. = Fs 
GOtGxyiaaszne 
meoeat 
getthekevstinoutstrina.,t?s 
cha := inputstrings 
gotoxy tol vii ; 
Tim 3s= chas 
until Gam tn toy fs 
Gir scr: 
ends {If Statement}? 
oe : cegin Cit Statements 
gotoxyYt(15,6); 
Write (‘You are entering the Sup Criteria 


ied 
“HH 

oT i & 

DM tO 
tu 
1 

rN J rt +; 
f 
YQ 


level. it “oe 
Jetek <a. 
Write( this is the initial entry, you 


may review the’); 

GOLGAyT (234 a0c- 

Wreicte('last ievel of criteria, But you 
may mot change’); 


“J 


i 


—~™ % 


FOGG ola yoo: 
Wirited‘’ait., However you may review the 
criteria you’) 
many le cre ee 
Writet “have already entered at this 
level and change’); 
GOeanwy ti, te) = 
Weitet’that. Do you wish to review your 
miteria? nee 
GOtexviat, 14) =: 
repeat 
getthekeys (Inputstring,!1); 
cha == inputstring; 
GeBbony Goi, 11)": 
chm 3:= cha; 
Untci enm in CY OSeN a: 
Ccirscr:; 
end; iif S@etonahe? 
e : begin fI4 Statement} 
gotoxy(1i4,5); 
Write: You are entering the Tertiary’. 
° Criteria level. tof) = 
qonoxyYti4,7); 
Write(’this is the initial entry. you 
Nay PSevicw the’)s 


i 


ota} 
ree 


ew 


evel of criteria, But vou 
may not change’); 
gotoxyYii4,9); 
Write d’it. HOwever you may review the 
eriterta seu 2s 
gctonyYiid,1i@); 
Writet’ have airsady ent 
ievel ana change’:: 
gotoayii4,1ii):; 
Writet(’that. Do you wish to review your 
criteria? a 
Goto yt olmeni. « 
repeat 
getthekeys (inputstrina,1i); 
cha := inputstring; 
gotoxy(é61,11); 
chm := cha; 


pt. 


Mice. Cis a ae of = NM es 
aoe. 
enc; tif Statements 
a ks ns 'Gg’. 3’. 'm’.'p’ 
beqin {Inside case Statements 


eee 4d S97 23 

Write (’Your flag has been set stating that you 
nave °)3 

Peco lo~.g) 5 

Write ’finished inputting criteria at the iast 
bevel, ); 

ie war Ol ae 2s 


“J 
‘] 


Writei’You may not enter any more criteria at 
En? SOE; 

Geis ryY 1 lo, 

Arita time. HOWwWever you may review the 
criteria you'’?; 

Gotary (i535 ie 

Writet’have already entered, but you may not 
chanee it. *)s; 

gotosa ee ba bz) G 


Wreitei’Fress Return £o continue. ); 
ena G=— 7 5 
getthekeystInputstring.1)s: 
clrscrs 
ends {Inside case Statement} 
Tae? 
begin itInside case Statements 


QOtOAY 1 Paes 

Wreinret‘Al]l members of the committee have 
finished ‘); 

gotoxyYcis 

Wirltet ‘entering their criteria. You may now 
review); 

GOtoay (ieee. 

Write (’'all criteria that has been entered. Be 
agviseda‘')s; 

qotoayYtiszigai: 

Write’ hhet this procedure wili te repeated 
until tnere’); 

GotorcyY (ia... 

Writet’is a resolution between ail members 
comcerning’); 

GOLOAY (faye 

Write l’what criteria is to be kept. Press 
RETURN Sao 7 

Gotpay tiie, 1a 

Write d‘continue. ’): 


‘as 


Ehe 2 oe: 
qgettnekeysiineputstring.1)s 
oie eee 
ends tinside case Statements 
ends Llase statements 
ends {InitVariables? 


“J 
tH 


proecedur2 xitecox: 


(EERE EARLS EERE EERE RHE ERK FREER ER KARE REAR HR RAH KR RK HHH 


eee ROLOOURE : RITES + 
wee oer OGRiS PROGRAM =: CPOUCH. FAS ca 
# LOCAL VARIABLES : NONE * 
* GLOBAL VARTABLES  : CHOHATOR. ALTERNATIVE. = 
Aaeeesisictiy os USED = NONE : + 
Sea oS OSL : NONE & 
€ =X TERNAL eae : SASTCECK = 
eee wtewmee Fil jiERS =: Stine R Poteus * 
*% CALLED FROM : WEEDHCPPER_MENU * 
* PURPOSE : Seteaeur THE INITIAL GDOMETER ¥ 
* SCREEN AND WRITES % 
* PRELIMINARY DATA TO SCREEN. *% 
HH HHH EHH LRH HH LKR HE KEE HEE E KR ERE EE EEKE EERE EERE KEKRHEEH KE) 
begin tRitepox: 

juacte Ci 3 ChatQCK := Faise: 

MeCN 5 i. Poy 2 ors 

eae Sil 3 Basten Gw eee le fy) § 

pornLreGsqG¢3:= f+ and 1; 

Oe eer ga! § eElrecis EGtoan ¥Y (28325) 4 

etr eols 

27 alternative = “A then 

Segin 


SoOteey (29525) + Wreitet ‘Alternative Develooment '?; 
ae 
Write ‘Inout Final Holding Review 
Aiternatives’); 
end 
aise 

Feqin 
Satan ( Sa .85): Writes 
GoatoxryY (2,24); 
Writet’ Major Sub Criteria Tertiary Criteria 


Blifalieiding .. 
Review Criteria’); 
end; 
GmeeaA yy (aeeo) 5 write( Fis=Help Z2=CHAT TERHOX 
eo cee 
GOEOKVYiS/,25)3; Writet “Expianation FRB@=Quit”) 
Berenrviocd, 1); texthackground (recy; 
crextcolor tyelilow): 
writet’ VauUbLoS? awe oe 


=P eoalkGrOurd (oeue) ; 
xtcolor (white) ; 
: th ceGeN s 


“4 


J 


oraceaures Maintriteria; 


SERRE ERR ERE EEE RRR EE RARER RR HARE RHE RAR SR ARKH R RRR RE RRR EE 


* PROCEDURE MAINCRITERIA - 
* SUPPORTS FROGRAM =: CTOUCH. PAS st 
* LUEAL VARIABLES : SHORTNAME.,. LONGNAME # 
* 6LOBAL VARIABLES © :; PTL. PT2., Pla Pls Sea ee eee 
* QUITFLAG, # 
= CRITERIA, QULTFLGi > eho er eee % 
+ BUT Teiee. + 
* THRNUM, QUITFLGS, INPUTSTRING, % 
+ MOVEX, STOPPRGG, * 
# CRITLIMiIT, NEWCRITLIMI?,. COUR ReD = 
% i, ieee. §A & 
*# ARRAYS USED : NONE + 
*% FILES ACCESSED : KRITERIAFILE & 
*% EXTERNAL CALLS : SETTHEREYS * 
*% EXTERNAL FILTERS : Veter sae + 
* CALLED FROM ; MAINORITERIA Bs 
eee ee ae 5 ALLOWS THE COMMITTE MEMBER TO ADD * 
= ALTERNATIVES/CRITERIA TO A NEW OR + 
+ SA ISTING lates. es 


ELE EAE KEE RARER HEHE RASS SE ERE EERE ARRAS REE 


War 
SHORTNAME  : STRINGCiOq: 
LONGNAME : amo Nii ee 
begin (MainCriterias 
pti-~e= 2s pt2 :=> 23 pts t= 772: "ses 3:= 273 
window (pti,pt2,pt S,pt4): 
17 problemtiag «> ‘2° then 
begin tif statements 
Seek ikriteriatiiliea,rcecount—i} 3 
readtkriteriatile,criteria;s: 
ends <I[f statements 
repeat 
1 t@uitriag = 3) and (forcblemriag =~ ‘e@°)} then 
begin wilt statement within ees 
case ProbiemFlag oF 


a" > Begin CA statement within Case: 
if criteria.ftlagi = @ then 
Soa 


ais 


Bocee ae ae 
WreitedNum,~’. dae Mum 2:= Num + 13 
MOvex := wherex; 
QOulthligqgi := GuitrFlalyaa:, 
Criterva.Flagl t= Ged teriaeriagiy + se. 
ends fA statement within Cases 

oe : beqin CB statement within Cases 
GotokYti¢,wherey): Write tSecNum, ’. 
MOVex 3~= wnerex; 
secMum := Succ (SecNum) 3; 
CR ceige f= OMe hae. 


4 


S 


ti} 


Criteria.Flag2 := Criteria.Flag= + 1; 


3 


ends iB statement within Case} 
ae : begin .C statement within Case} 
GotorzY(S.wherev):s Write(ThrNum,(‘). Tg 


MOVeXxX 2= wherex; 
ThrNum := ThrNum + 1; 
Gia tPlgs =e eirerlgs + 1s 
Criteria.FiagsS := Criteria.Flaqgs +-l:; 
ands tC statement within Casei 
ands (Case Statement; 
repeat 
getthekeys(Inputstring,1@); 
shortName := inputstring; 
gotoxy (movex ,wherey) 3 
until Cord(shortname[f1]) + 32) or (stopprog):;: 
SS 5 
criteria.critname := shortNamel[13; 
white (snortnamelal <> chrtis)) and (atilid dea 
beqin 
Criteria.critname := concaticriteria.critname, 
shortnmnameCal); 
a s> a + is 
end: 
writelns 
Cee eater OL ana Mot (HitreeiGge >» Critlimie® + I) and 
Reel Chega Ceri tiaimr eet 1) ant 
mot (QuitFigi > NewCritLimit + 1) 
Geqin itiLead tiles 
GotoxyY (2,wherey); Write(’ Define: mn) 
movex := wherex; 
repeat 
getthekeys(Iinputstring,s&) ; 
liongName := inputstring;s 
gotoxy (movex ,wherey/ ; 
umtii fordiiongqnamelidy) + SS) or (stoperog) ; 


eo “je 
a _o™ my 
eriteria.critdef := longNameliil;: 
wniie (longqnamelalyd <2 chrtis)) and 


(aticountedtid)d do 
pegin 
criteria.critdef := 
concat(criteria.critdef,longnamelad); 
a:i=at ts; 
ends 
wreiteln: 
:= Criteria.rlagl + iW; 
= Criteria.Flaqe * 14; 
:= Criteria.Flaqss 
Criteria.fneckPoint := 1 +t+met on; 
seek (kriteriafile,filesizetkriteriarile))ds; 
Wreite(Kriteriafile,Criteria?; 
ena t{Load fiies 


” 


end; Lif statement within repeats 


a 


until Stoprrag a (QuitFigi + NewCritLimit) or 
(ui thlos 2 Cristea tear 
(BuLitrlas + [Crip eeen a 
end; <MaintCriterias 


procedure Windows; 


( HEHE IE ERIN IRN ERR ROR Ne a ateh a 5” Be ea 
%® PROCEDURE : ACTNDOWS 
SUPPORTS PROGRAM : CTOUCH.FPAS 
LOCAL VARIABLES . CHM 
GLOBAL VARIABLES §: PROBLEMFPLAG, RECOUNT, 2, CRITERIA, 
MUM, SECNUM, 
THRNUM, @QUITFLG1, QUITFL&Z, 
GUITFLGS, STOFGAF, 
CHKFLAGI, CHEKEFLAG2, CHEKFLAGS, 
SHOWME, GQUITFLAG. 
INPFUTSTRING, FLAGEHOICE. NAMES, 


LIMMIT 
ARRAYS USED NONE 
Pll eS neee oo. Pee rar fice 


FATERNAL CALLS ODOMETER, FINALCHOGICE, LOADARRAY 
NEWWRITE, CHATRCHECE, 
RANTOCOMPLETICN. MAINCRITERIA. 
Set hehe 

@leleRke Oia. -lejees so 

WEE DHOPFER_MENU 

LISTS ALTERNATIVES/CRITERIA WHEN 
THE USER HAS PREVIOUSLY INFUT 
DATA BUT DOES NOT WANT TO REVIEW 
THAT DATA. 

EEK AKREE RRR KERR HEE ERR ER RAE RRR ERR EE RHEE KERR RRE RRR K RR RERE ERE E SE) 


a 


EFATERNAL FILTERS 
CALLED FROM 
PURE OSE 


OR OR OR OK OR kk ROR Ok Ok ck Rk Ok ok OR OK Oo Ok 
OK ROR ROR OR ROR ROR EO ORR ROR ROR RK: 


Var 
CHM =: CHAR: 


beain AWindowls 
cirsen. Odometer ; cnatrchecks 
recount := @; reset (kriteriafiie)s 
=z i= firlesizetkriteriafile:;: 
if (@proebiemftlag + ‘a’) and (problemflag < ‘e’) then 
beqin tif Statement: 
reneat ‘Main Repeat Moduisi 


Seek Ckriteriariile.rscount) s; 
read(kriteriafile,criteria): 
repeat feemedtios Repeat Modules 


(ERR ENKHEKARAEE REAR HARKER AK ERERRAREEAEREEER RAE REHRREREES 
# Writing Major Criteria, (X89), previously entered +* 


+ when piroolamtlaq = a4. ProoiemFiaqg = 6 for this # 
* module to be activated, and allows subcriteria to * 
* Pe entered, (XABB), X's Geing integers. s 


BR RRR MEER ERA ERE HER ARERR MRA HRRRE HRS HREP REM EE ERA REE HE KEES) 


case Cri ee of 
1... 1@@e = eqgin Linside case statement flag 
- (eritaeas. filage = 2) ana 
(Oriterita.FiagsS = @) then 
Gegin {Case If Statement; 
if criteria.ftiagl = 1 then 
benmorey (1,13 
2ise ; 
GOtoOAY il, whersy); 
AritetNum, . ee 
EmmSlum ==. 1: Secnum := 1; 
Num == Num + i; 
Gui CF1 G ae: = ab: 
GurtFilgi := GuitFlgl + it; 
end: (Case If Statement} 


Writing Sub Criteria, 
when probiemtiag De 
moduie to be activated, 
criteria to fe antered, 


(RAW) , 
Propbiemriag 


zs 
‘ 
- 
+ = 
+ 

* 438 


LA 


wet 
Fees S 


Vr * 
ray 


A digg 


previousivy 


entered 
Ge tor thes 


and allows tertiary 
DeEing integers. +# 


ee 


7%, 


SRR SHEESH ERE RE EER ERR ERE RRR RRR KEKE EERE HEH 


os 


+ 
+ 
4 


RERRRAE SEES SRERKRE RE ERER HERR HEHE SRR RRR RRR EERE RRR KH) 


case Criteria.filag2 of 
i.-if@ : begin Linside case statement flag? 

tof 6 6(CmeC eri aeeeaas = 4) then 

DEeGin itilase If Statement; 
GOCGAY i4,wrerey) ; 
see Ce Callin “23 
SecNum := Succ (SecNum) ; 
Omlee lg 2 ws Bure leases + 13 
TnarNum <= 1; 
it QuirtFig2 = CritlLimit then 

StwapGape:= Faleas 

Guichas t=ec 

end: iCase [rf Statement 


(ESE ESE ERS RRR RR EAE EER REAR EEE RRR SRO 


Tae eG Ler ii ary eGri teri ages Au), 
entered when proplemfiag ye 
for this moduie to Ge activated, 
tertiary criteria to be entered, 


Deing integers. 


a a 


previcgusiy 
Frobiem@lag 

and ailows 
(AAKX) , 


qd 


X's 


SEBS EERE EER SERRE ERE ESE SEEKERS RHE REE SE EE 


case Critenia.tiage: of 

Tee) begin 

gotoxy (d,whersy?); 

Write (TArNum, °). 
TArNum ThrNum 
GuLrtrs 
if Beer 

Sac ces 

(Case If 
Flagis 


a 
= 
_e 
* "e 
o —" 


— 
im 


a3 


(Case If Statement: 


“_ 
x 
* 
oy 
& 
) 


begin ‘while Statements 


Mid 
fh 


ena; {inside case statement fiages 
end; (Case Statement fiages 
writeintCriteria.CritName.~: 
(2@ei teria. G52 ever a: 
end; {inside case statement fiagis 
end; ‘Case Statement flagis 
if (ProbpiemFlaq = ‘c‘) and 
(Criteriagelagi = Cmkeiani) ana 
{Criteria.Flag2 ~ GnkrPiag2, “ana 
(Criteria.aFiags = 2) ana 
(ChkFiags = J) then 
Showme := 1: 
ChkFlagi := Criteria.Flagi; 
CThkFlag2 := Criteria.Fiag2; 
ChkFlags := Criteria.Flaqg3; 
mecount := recount + 1; 
tf recount «< z then 
readikriteriafiie.,criteria) ; 
2f tFrobiemFlilag = ‘c‘) tren 
beqin £C Tf Statements 
Lf (Oriteria.Flaq2 > UnkFiag2) and 
{Criteria.Fiags = @) and 
(CakFPlage + @) anc 
(ChkFlaga = 4) then 
Snowme := is 
ig (Critesiagariage ChkFliags) anda 
ffleiteria.Fiags = 4) and 
(Chkrlags + 4) then 
Showme := 1; 
If (Criteria.Flag2 = ChkFliag2=) and 
(Criteria.Flag? => @) and 
(ChkFlags = 4:3 tnen 
Showme := @; 
if tOPitentaleiaq2 = Chkeriag.) ane 
(Crsiteria.FiaGgst = 8) ana 
{ChkFlags > @) then 
Snrowme i= 13 
end: LO [+ Statement: 
until (CeiteriasFlagey = CnkwaG i or 
(Snowme = ij or 
(recount = z)s 
if (Guithig2 > Creitinm ten 
(HuitFigs = CritlLimit) then 
Hurtrliagq := 1: 
MainCriteria: 
Shawme := @3 Gus Ge lige: — 2 
QUS Eel os 2= 2b. 
Uuitrigs == 1; Guitrlag := 4s 
until ¢recount = zz); 
end tIf Statement} 
2ise 
oproblemriag < ’e” then 
gin Cift/Else Statementi 
while not EGF lkriteriafile) do 


read(lkriteriafile,criteria); 
case Criteria.flagi of 
dae begin tinsice case 
statement flilaglii 
if (Criteria.fiagz= = 9) and 
(Getteriaeriago.= 0) then 
nbegin (Case If Statements 
af Eriteriaet bagi — 1 then 
GaetorYii,1) 
else 
GotoxyY (i,wherey); 
Write (Num, ‘. i 
Num s= Num + 1; 
QurtFlgoi s= QuitFigi + 1; 
Secnum := i 


ends; (Case If Statements 
case Criteria.filag2 of 
1..1@0@ : begin Linside case 


statement flaqg?s 
if (Criteria.flags = 2) then 
gegin tCase If Statements 
gotoxrkyY (4,wherey?); 
Write (SecNum,’. =e: 
SecNum := Succ (SecNum) : 
Beli lage 2=— feperias + ts 
TarNum := i 
eng; Lease ot 
case Uriteria.fiags of 
1..1960 : begin fCase If Statement; 
GOtorAY (S.wherey); 
WeitetTArhum, >). ies 
ToheNum := TheNum + 1s; 
Bie ge <= Ougtrias + 13 


f Statement; 


end; ‘Case it Statements 
end; LCase Statement fiagas 
end; {inside case statement 
fiages 
end: (fase Statement fiages 


Wreiteln(Criteria.CritName, ~ 
Y,errueria.GritdDet) 
end; {inside case 
statement flagi+>s 
end: {Case Statement fiagls 
if @uitrigi = NewCriclimit then 
StorGaop := Faise; 
ChkFiagi := Criteria.Fiagl; 
ends; (While Statements 


“ta en 


tf not (QuitFlgl > NewfritLimit) then 
Maincriteria; 
end; {I#¥/Eise Statements 
closetkriteriafile); 


ss 


Eos 
ch 
. 


problemftiag «27 ‘z° then 
beqin 
Qatar Y (een. 
weite(’Are vou finished with this level of 
criteria, ', 
‘or will you be entering more?’'); 
gotoxy (1,20) ; 


wreite(l‘Enter ~"F  "Sfer Fini smed.) Gun os. en oe 
More: a 

goto ytita.,24 

repeat 


getthekeys(Inputstring,1); 
flagchoice := inputstring; 
chm := flagqchoices; 
gotoxy (45,24) 5 
until chmeaimw = foe 
if (FlagChoice = ‘F‘) then 
FinaiChoice; 
end; 
if probiemflag = ‘z’ then 
rantkocampierkicn; 


adarray 3 NewwWrite (Names.,Limmit ; 


atrcheck: 
{Wi nGgowss 


t ™ 


procecure NWEEDHOPPER MENUS; 


( EERE EE RER KEE EEE HERE HERE EKER KHER EE RHE MEK ER EKER HERRERREER REE 
PRESEDERE >: WEEDHOFFER_MENU 


¥ 


eR OK OF 


2 i 


wR RK OR Ke By 


SUPPORTS FROGRAM 
LOCAL VARIABLES 


CTOUCH.FAS 

CH, SELECTION, CONTINUE, 
COMPLETED, FILECHECK, 

SHORTN@ME. TEMPDEFINITION. COUNTS 


S6LOBAL VARTABLES : COMPLETED, WEEDDEF, FILECHELE, Y, 


ARRAYS USED 
FILES SECESsep 
EATERNAL CALLS 


EX, ERMNAL, PPevens 


CELLED ERaM 
PURP Sse 


X, MAREER, 

MBVEGV Shes PEEDR i vee 2. HINEMenee 
MEMBERS. NAMESTRING, ALTERNATIVE, 
INFUTSTRING, PROENAME, DATE, 
COUNT, NAMES, LIMMIT, CHATOR 
MONE 

ACTIVEFPROGBLEMFILE, DATEFILE 
INTROSCREENS GETTHEEEYS, RITERBOX, 
CHATRCHECE., INTTYARIGBLES. 
LSADARRAY. REVIEW, SINDCWS. 
LOQADENUF 

FLEIERS Sete Speen? ene. 

FILTERS. LIB, TALLEREeL IC 

MAIN BODY QF FROGRAM CTOUCH.FAS 
GIVES THE COMMITVES MEMBER Wigs 
OPPORTUNITY TO 3299 3ER ReVilw eooe 
BENT RiSaS@en Stabe weetes- 


a , 


hk Ok OK OR OK 


*}° 


OR 


a 


RHREZARZEARAERRHRA RHEE RARKRAAHRKER RE KRKREAKKEKKRAKAK ERR RR BKMRREME RES | 


Way 


fae oe LECT LON : CHAR: 
Bee. WIE, CSMPLETED, FILECHECK : HOCGLEANS; 
Baier iLe : VERGE 
SHORTNARE : STRIMGE a. 
TEMP DEF INiITiICN : STRIBGC SES: 
COUNTS : de iia (ok be: 
5eqin torocecurs NeeacHopper MENU} 

COMPLETED := false; 

repeat 


weeddef := false: 

FILECHECK := Falise; 

INTROSCREEN;: 

Soteny.io., i): write (‘COMMITTEE MEMBER MENU’) ; 

FoLexy (1.3) s 

write (‘At the present time, you are a membar on 
committees ‘3; 

Soeony ii ,4) > 


t 


write ('discussing the following orobiems: '); 


vw s= 6s Ae is Marker <= @s 

MoveOver := i333: 

Assign ‘ActiveProblemFile,concat (FiLbDRIVE, ':FProab 
<$I-3 

Reset (ActiverProbismriie?); 

S28 Ios 

Z i= Ws 


if [Oresuit = 9 then 
begin <1/O0 results 
while not EOF CActiveFroblemfiie) do 
begin {While not EDF Locp; 
LinemMark := False; 
Read (ActiverProblemFiie., Members; : 
ir imemoers.membper = 2 , } 
(nembpers.chroice = a 
dDegin 
LineMark := Trwues 
Gotonky¢x,Y)3 
Write (Members.FProolem) ; 


S Vs =esiuce (2): 


ends 
if Y >} is then 
begin itty LoS 
Case marker oar 
i : NMOovecver : a 
= moveocver 3= 273 
ms : moveover := 49; 
ends 
X 2:= MovedDver: (=e 
Marker i= Marker + 13 
end ry See 


eice 
ir tLineMark then 
Yo: = yee 


end (While not EDF Loops 


ue 


C1) 


| 


rh 
43 


Ul 
[ \" 


ciosetActiverrabiemriieseiys 
if z = @ then | 
peqgqin 
QODEERY (Ss, 47): 
arite:’You are mot currentiy serving on 4a 
committees’); 
deiay (4400); 
completed := true; 
ena; 
mot compieseted then 
pegin 
gotoxny( l.42c75 
write ("SELECTION CHOICES: 1) Choose a 
problem’); 
gotoxy (46,135); 
Wi) Cee nr Eka Cera DOS  } 


be. 
“fy 


gotety 9022 167: 
@r2a@eee<( SELECTION: <7 = gotoxy (34,16) 5 
repeat 


read(kibd,CH): 
UnGis Ce aime . - 
Wirt ee (ero 
Geiay +i G@@) ; 


tJ 
Ld 


22 7 
4d ¢£ et 


es 
a 
= at 7 1 
= Za & 
2 


“epeat 
Gotoxky (22,16): 
Write (Choose the probiem: wae 
repeat 
getthnekeystinputstring,7); 
shortName := inputstring; 


GOtGH yi4te . bee 
until shertnameliid + #32; 
LCemove spaces from shnortnames 
aA t= 2 
Brcooname := shortNamelicl; 
Wwoiie (snortnhnamelaidg «+ chrttai; ana 
{ai3) Go 
begin 


probname := 
concat (probname,shortnamelal); 
a fea 
tie twnhile snortnamelails 
wets tne date from a frie DATE. TAT? 
assian(datefile, ‘date.txt'); 
reset l(datefite)s; 
resdint(dateriie,date); 
close(datefile); 
resetiactivecrotlemriise): 
COUPE. 3 =a: 
wile mot <OFiactiveprobliemriie) daa 
begin fwhile statement: 
ReactActiverroslemFiie,Members?}; 


LO 
C0 


FProcoName)?) 
NameStringa) 
alternative) 


if (Members.Froblem 
and (‘Members.Member 
and (members.choice 
then 
begin 
filecheck := true; 
members.dateline := date; 
tempdefinition := 
members.definition: 
end; 
seek (activeproblemfile,count—t1); 
write lactiveproblemfile,members); 
count == suce (count); 
end; twhile statement} 
Close (ActiveFProblemfiie); 
counts := succlcounts) 3; 
until (filecheck) or (counts > 2): 
if mot (filecheck) then 
begin 
Gir >C tas sotarzkyt(9,2); 
Wreiteini’°i’’m sorry but vou don’ ‘t 
seem to be typing’); 
GOe OA ste )-s 
Wreitel’in a problem that we have oan 
ibe. 5 
deiay (4989): 
completed := true: 
end {If Statements 
else 
begin 
cirscrs: 
BGOLOXY GLU. aos 
WeecDef := true: 
write d'A snert, one iine definiton of 

‘,probname, 

. teliowse >); 
Gioia s (acts ane Ai f= ime pemoauet int tion): 
Gore eye) i) -s 
write(’If at any time you wism to see a 

more im ‘?)3; 

QOGtLoOx viele 4) s 
write(’depth explanation of the 
prodliem, press F3‘); 


FOLK yt ft gee, 


weiiet Press feturn <0 continue’)s 
getthekeys (IiInputstring,1); 
RITERGX; 


CHATORK := trues; 
CHATRCHECE ; 


INITVARIABLESs 
ir (CHA = #939) and (STARTUP) then 
begin 


LOADARRAY ; 
REVIEW (NAMNES,LIMMIT? ; 
end tit CHA=#89>3 


a7 


e2ise 
WINDOW ; 
ends LLlf/Ei ses 
end i 
eise 
COMPLETED = senue 
end tif [Oresuit = 
eise 
begin 
Glaser. gotoxy (12,8)5 
write (‘File PROGBS.TAT not found on drive 
Serre ORIVE? s 


2 
3 
oa: 
a 


sound (80@) ; delay (300) ;nosound; 
close tActiveProblemfile); 
Gelay (2908@> ; COMPLETED := true; 


end; telses 
until COMPLETED; 
,0Dacemup; 
end; tprocedire WeecHcopper _MENU>? 


begin {Main Program? 
INVOCATOR := ‘Wo: 
SGETFILENAMESS 


asisagn (CTEMPr ibe, BPRIives ew 23 
be 
reset (TEMEFIiLEs 
Lfirs 
if IOresult = @ then 
erase (TEMPFILE) ; 
if (AUTHORIZED) and (‘tInvocator = ‘W’') then begin 
INTROSCREENS: 
gotoxyiia,3); 
write: “ACCESS APPROVED — Sie eee ee eee eens UME! 2 
Ge@iliayi tga) : 
ALTERNATECHOICE, 
([HRREEBEH Cali toucnstone programs *#4*#*2+#e*) 
if INVOCATOR = ‘“W° then 
WEEDHOPFER MENU; 
(PARR KAKA RRR KRREEARA RAK RRKA AE RHKEHRRAHAEEE) 
iNT AROSCREEHS 
gGotoxy <4.,473 
write (€° THANE YOU FOR USING TGUCHSTONE —- HAVE A NICE 
DRE). 
GCeilsy (iL{8080): 
ena; “if AUTHORIZED: 
loacthefiles; 
end. {Main Program: 


of 


Seegranm FLAGSET (INPUT .GUTFPUT): 


* 


Ok ROR OR OR OR ROK OK KOR OOF 


ee ee ee ee ee ee ee ee ee oe ee 


Zypes 
SaeMGS 
STRINGS 
STRINGIG 
SPReNG 12S 


PROGRAM 
ARRAYS USED 


GeeleeS ACCESSED 


EXTERNAL 

EX TERNAL 1 
CALLED FROM 
PURFOSE 


PROBREC 


CRIREC 


ALL 
eT 


J 
Spgs) 


a8 gp&@ 668 tk 


ii 


i 


FLAGSET. FAS 

CRITARRAY 

TERRBESSSET. AC TIVEPREBLEM- ILE, 
RR ISR 1 Ape 

BUBBLESORT., CRITSORT 

- WET ERosEe Te 

TS. BAT 

MERGES THE ALTERNATIVES/CRITERIA 
OF ALL MEMBERS WHEN CERTAIN 
VARIABLES ARE MATCHED. USED AS A 
COM FILE AT THE LAST OF THE BATCH 
FILE TS.BAT. NO INTERACTION FROM 
LiSoen eto mP OU ine. — tie asi 
ACT GF THIS PROGRAM [5S TO Set fHE 
SCREEN 8ACK TC NORMAL. 


SIRENS E SIs 
a eee 
STRINGE LEZ 
STR DNG ies > = 


record 


CHECKSTATE 
CHECK CHANGE 
Borel ee 
-ROSeem 
MUMPIENS 
MEMBER 
DEFINITION 
DATELINE 


ends: 


-ecora 


FLAG? 
FLAGS 
FLAGS 
CHECKHPC Mat 
STATFLAG 
CRITNAME 
Cel PRE em 


end; 


ii 


we ge O88 dy wo 


aticac! t e «s 135g 
arravtCioeiGes 


CHAR: 

CHAR: 

CHAR: 
Simenet?7 i: 
PNTEGER: 
STRINGS; 
STRINGCS8I:; 


mn =, “4 
MG tes 


Sis 


“sé 06«ap 6 6880hCOU CO 


aa a8 aa 


INTEGERS; 
INTEGERS; 
Lies oa 
epics eas 
CHARS 

iin Moe = 
SUR PENGLSS 3; 


et CRiBES: 
eee eee = 


ee Ke KK RR HE RR OX 


pee 


Yar 


FLAGGED. FILEDRIVES: 

PROBLEMFLAG. CHANGEREC SG rrme 

STSRTMERGE, OQNCECOLNTED, 

ANONYMOUS, CHANGEFLAGS : HSOUOLEANS 

PTi., L, COUNT. FPLAGeSohiee : INTEGER; 

FITZ, M, LIMI DS Se 7ece a. : INTEGERS: 

PTS, N, TRACK, DOUBLECOQUNTED : INTEGER; 

PT4, Z, LIMMIT, COUNTED, FLAGEND : INTEGERS: 

ALTERNAT IVe s SERINGELT I: 

NAMESTRING : STRINGS; 

PROBNAME : STRINGE7 I; 

NEWSTRING, DATE > SiTRiNGte- 

NAMES s CRITARRAY;: 

PEDES >: FROBARRAY; 

CRITERIA ae CLL eee 

MEMBERS 2) PRESRE IE . 

MRI TERIAFP ILE : fillebor CRIRERs 

SCT IVEPROBLEMFILE ; fiero PROEBREE 
(SIP IE TERS ELE: 


precesure FPutemTogether: 


CPE RE KK RRS SRA HERSEK EARS RRR EE EERE EERE SEHR EERE SEES 


7 PROGCEQERS 

% soe PROGRAM 
it OCAL VARIABLES 
za SLOBAL VARTASLES 
*% 

< 

* SSRRAYS USED 

* FILES ACCESSED 

* EXTERNAL CALLS 

e BCA CRNA es 
* CALLED FRE 

© PURPOSE 

x 


EKER LEAKE RKHKAREE KER ELK E EERE RREKRHKKER HER RRE ERA AHR ERS ERERG 


Tei 


beqin 


Newstimimees = Fr 


1 Qh teeta 


Ass i 
eset (hiri teria 


aa iia uu as 


ou wa aa as se as 


obramerta 


te pa 


yb 


PUTS ReGe Hb 
neo see 
NONE 
NEWSTRING. 
MEMBERS. 


FROBRBNAME, 
PiLevaiyvee. 
LIMMIT 2 Rear PUGE THER 
CRITARRAY 
EKRITERIAFILE 

NONE 

MONE 

-iLAGbSE? fae 

LO4&05 AN ARRAY WITH ALL FILES 
HAVE THE SAME FPRGSBLEM NAME. 


ALTE 
COUNTED. 


tEmTogethers; 


é 
Wet’, 


4 ee one 
i -elga@aus 


rt 


Meche iP Eee eee 


fa sy 


* \ 
eBystring?: 


RNATIVE. 


% 
F 


‘+nembers.membBbers: 


« 
i 


ky 


ag. 
oo 
ee 
Life 
+ 
te 
cia 
es 
Se 
) 


while not EOF (KriteriaFile) do 
begin iWhile Statement3 
Read(KriteriaFile,Names(Counted]); 


namesCcountedd].checkpoint := 
namestCcountedi.checkpoint + KeeoTagether: 


Counted := Counted + 1: 
ends {While Statement} 
Limmit := Counted; 
claose(KriteriaFile); 
keeplogether := KeepToqether + ft; 
end; iputemtogethers 
procedure AllTogether(ivar Names : CritArray; Limmit : 
imteqgeri)s; 


(EEK AA AREER E REA ERRAE RR AE AK SHRE RRR EK KEKE KKRKRER KER SERRE HERES 


PROCEDURE >: ALLTOGETHER 

SUPPORTS FROGRAM : FLAGSET.FAS 

LOCAL VARIABLES >: NONE 

GLOBAL VARIABLES : COUNTED, NAMES, LIMMIT, 
DOUBCECCUNT Ebae ROSLEWeESG . 
NEWSTRING, FILEDRIVE, PROBNAME. 
ALTERNATIVE, ONCECCUNTED 

ARRAYS USED UNI TARRAY 

PitBe ACCESSED KRITERITAFILE 


GATERNAL CALLS 
Seremnae, FlLLieRS 
CALLED FROM 
PURPOSE 


RUBELESORT, CRITSORT 

FILTERS.LIS 

FLAGSETTER 

THIS PROCEDURE RELOADS EACH 
USER‘S FILE WITH ALL OF THE 
CRITERIA THAT EACH USER INITIALLY 
ENTERED. EACH USER THEN WILL 
HAVYE THE SAME IDENTICAL FILE TO 
DELETE. CHANGE GR ADD TO IN 
SELECTING THE FINAL CRITERIA. 
De ee ee ee ee ee ee ee ee ee ee ee ee ee eo 


oe ee oa ea oe en 


OR ok OR ok Ok ok OR ok OR ok OR OR OR ok OR ok 
kok ok OK Ok OR aR ROK Ok OF Ok Ok Ok ok Ok 


¥. 


begin faliltogethers 
it OnceCounted tnen 
begin 


bubbiesort (names.Limmit? ; 


counted := 13 Goublecounted := ils 
repeat 


“hy 


‘Namestcountedd].critname = 
NamestCcountedtid.critname) and 
(namesCcountedj.critdeft = 
namesicountectil.critdet) then 
beqin 

NMamesitcounteddI.Flagi : 

couplecounted := goudiecounted + 13 
end; 


pi. 


counted := counted + 1; 
until counted = Limmits 


Critsort (names,Limmit)s; 


NewString := FProtbnametalternativert’. ‘+members. member ; 


Assiqn¢kriteriaFiie,concat (FILEDRIVE,':° ,newstring)?: 
rewrite deriteriatiieis; 


repeat 
namesCcounted].statflag := oroblemflaga: 
if namesicounteci.flagi = @ then 
DeGIN 
wireitedtkriteriafiila,NamesiCcountedi)s 
end; 
counted += counted + 13; 


until counted = Limmit; 


close(kriteriafile)s; 


procedure FiagSetter; 


(ERK ERR SESE RS RRR EEE BERK E KEK HEE REE EKER EEK EE RH EKER EKREAE 


a 


eR KOK OK ROK KK KOK KOR ROK KOK 


Var 


SLOBAL VARIABLES 


ARRAYS USED 
Bemeo RECESSED 
EXTERNAL CALLS 
EXTERNAL FILTERS 
CALLED FROM 
PURPOSE 


PROBLEMROLD CHAR 
fem ELAGSET T 


PREECE DURE Se Pilea lek 
SUPPERTS FROGRAM :; FLAGSET.FPAS 
LOCAL VARIABLES > FROSLEMHOLD 


NAMESTRING, FPROBNAME. 
PFLAGEND., “Ber OGETHER., 


FILEDRIVE, ALTERNATIVE, 


EeuNTeey 


Seok INeKSe, 


COUNT, CHANGEFLAG, FLAGCOUNT , 


ONCECOUNTED, MEMBERS, FLAGGED, 


PROBLEMFLAG 
NONE 


MONE 


IS FPERSONALLY 


PROCESS. 


ua ua 


segin irlagSetter: 


assignitempfiagset, flagset.txt (J); 
reset (tempflagset); 


readinitemoflagset.filedrive); 
readinttemoerlagset.siternatived) ; 
reacdinitemopriagset .namestring); 
readin(temoptlagset.probname? ; 
=Lose(temetiagset} ; 


erase (tempriagset); 


assign (ActiverroblemFile.concat (P¥lLEDRIVE,  :Frop 


reset (ActiveProblemFiie); 


counted := 1; count := @: 
Flagecount := 1:3 

fiagenac := 1; Startmerge := Faise; 
OnceCounted := True; 

MeepTocetner := 13 ChangeFiag := True; 


while not EOF factiveproblemfile) do 
begin twniie statement: 


read (ActiveProblemFile,members) ; 


TEMPFLAGSET , AGTIVEP ROBLES ILE 
FUTEMTOGETHERS ALLTOGE THER 


3G 


mal 


oh 2% Oh SR 


MAIN BODY OF FROGRAM FLAGSET.PAS 

Vietis GRDCEDURE Vora ie ialeis 

THAT THE USER CAN TELL WHERE 
AT 


iNe@ THE. Se_Lecwcn 


OR me Om OOK ROKR ROK ROR OR OR OK OK 


if (members.Frcblem = Fr 
{members.choice = al 


Begin 


lf memcers.memoder = namestring then 
Fiaqgged := members. checkstatea; 


Flagend := flagqend + 13 
end; 
court 3:= eceuntes. :: 
end; twhile statements 


close tActiverProbiemFile); 


tCheck to S322 ifr the memGers are at the same stage: 


Mtiiei: 


-; 
ij) 
ui 
1p 
ct 
fu 
Mr 
rt 
Fk J 
“ 
iD 

TT 
“y 
u 
Oi 
it 


while not EOF (ActiverrcabiemFite) Go 
begin tHhtie Statement: 
read  (ActivePrcacblemFile,members) ; 


i¢# (members.checkchange = ‘C’) and 
(members.probiem = probpname; and 


imembers.cnoice = aiternative; tnen 
Changetiag := raise: 


2+ imembers.Checkstate = Flaqaed} ana 
imembers.ocrobiem = orstbrame) and 
imembers.cnoice = aiternative; then 
FiaAgCOUNT s= FlAagecDuUnE Powe 


ends: iwhite statement i 


close (ActiveFProblemFile) 


x 


rsset (activeprobiemfriie?) 


ae 


if Flaqlount 


It 
+, 
pod 
fu 

iQ 
iD 
a) 
cE 
ct 
a 
1 
a 


degin {if Statements 


wriiie not EDF (ActiverProblemFilie) co 


ba 


2 Statement 


pa 
ped 


Degin Lan 


read (ActiverProbpiemFile,members?); 


if (members. Problem = FProbName) and 
(members.choice = alternative) then 


begin <Emoedded If Statements 
case members.CheckState of 


Te : begin 
FutEmfogether; 
Startmerge := True; 
members.CheckState 
Sa “4s 
problemflag := ‘1°; 
end; 


aT : beqin 

PutEmTogethner ; 

Startmerge := True; 

if changeflac then 

begin 
if memoers.choice 
= "A° then 

begin 


memcers.CheckState 

oF Ob Sit Gat) SS 
end 

else 

beqin 

members.CheckState 

s= §' by 5 

problemflagq := ‘5b’ 
ends 

end 

else 
Sseqin 


members.CheckState 


4 a= *3"%: 
problemflaq := 
ends 


ode 


end; 


eon 3 beqin 
FutEmi ogether;: 
Startmerge := True; 
members.CheckState 
| ee 
proolemflaqg := ‘1°; 
ends; 


begin 
PutEmTogether 3 
Startmerge := True; 
if changeflaqg then 


3 


2 
4 


s 
a 


‘#8 


beqin 
members.CheckStats 


¢ 


ie he 
proablemfiag := ‘c‘; 
and 
else 
beqin 


members.CheckState 


cw is 
= 3 


oroblemfiag := ‘1°; 
ends 
end; 


n >: begin 
PutEmTogether ; 
Startmerge := frue; 
members.CheckState 
[= oe: 
problemflag := ‘0°; 
ends; 


fer >: beqin 
PutémTfagether ; 


Startmerge := True; 


it changeriag then 


hegin 
members.CheckState 
s= "2°'3 
problemflag := ‘z'; 
end 
else 
begin 
nembers.crecksState 
=" os 
Droblemflag := ‘oa’: 
ends 
end; 
end; (Case Statement:; 
end; {while statement; 
ends -Embedded [f Statement: 
closelactiveprobiemriie); 
if Startmerge then 
hegin {If startmerqe Statement? 


Colm ha 


reset factivercroblemfile)s; 


while not EQF (ActiveProblemFile) do 
begin {While Statement} 


read (ActiveProblemFile,members) ; 


1f (members.Problem = ProbName) and 
(members.choice = alternative) then 
begin 


Ail Together tNames,Limmit) : 
members.CheckState := problemfiag; 
ends 

seek (activeproblemfile,count—1); 

write (activeproblemfile,members) ; 

count := suce (count); 

end; twhile statement: 

close(activeproblemfile) ; 


end; {if startmerge Statements 


end; {1f statements 


end; {PFlagSetter> 
begin {main program? 
flagsetter; 


(* Returns the screen to normal textmode *) 
textbackground (biack); 

textcolartwhite); 

er Sscr 5 

(* Resets the border to black *®) 
portltOsd7I:= #Ff and @; 


end. (main programs 
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CERES KRHE ERR AHRRHRHRRKKKKEKRARRKHERKRAHHKRHRKERHEERHARKHERERHEERSHREHHE ) 


PLCeE : FILTER Seta er e2 sires 
WRITTEN BY : Mike Neeley % Hob Wooidridge, May,&é 
PURPOSE >: Procedure library for TOUCHSTONE (COOP 


Criteria Filter Frogram) written as a part 

of a thesis for a Master of Science in 

computer Systems Management, Navai 

Postgraduate Schooi, Monterey, California 
CONTENTS s BASICAOAC SV CLESsbEr ile Sere ieee 


(KKK HEE RE KEK EEK REE KEEN EERE REE EERE EERE KEE RHEE EEE) 
FROCEDURE : BASICBOX 
WRITTEN BY : Mike Neeley % Bob Wooldridge, May,86é 
Based on a program created by Mark Hayes 
Draws a box as specified by the input 
Variables 
PARAMETERS : X1,Y1,X2,Y2 : integers (box corner 
coordinates) 


PURPOSE 


EX TERNGL 
NEEDS = none 
(LHR RHR EEE REM EKKRHRRRKRKRK RRR EERE ERR REAR RRRKE RRR RRR ERE RE RES 


procedure HASICHOK (A1,Yi,A2, f2:integer); 
Yar 


BC : arrayl1..1,1..41] of integers; 
M,I,J : Integer; 


begin 
‘box parameters, 
BCCi,i] == X13 BCL 2G 24 2>= ya 
BCE], S392 = hee BCCL42 3:= Y23 
for M := 1 to 1 do begin {draw a single box as 


needed: 
GOtLoOAY (B00, le cea. 
wrate(chr(2@1)); 
for J s= (BCLIM,1J+1) to (BELM 31-1) Seer oeern 
SoOtoxY (J, HOOIM,2])3 
write (chr (205) ) 
ends {for J :=3 
BOtoxyY (HCCI Mew Se leases 
wreitetchr (197)): 
for Il s= (BETH 2i41) to Che in 4s i eeoce een 
GOtonzY (BEEN 2 22 
write(chr (185)); 
GOCOA YC BELTS 
write (chr (184) ) 
end: itor 1 =) 
GotonryY (BELT) Se hiie a 
write (chr (249) ); 
for J := (BOEM,13+1) Eau eet maoerearn 
GotoxyY(J,BCCM,4]):; 


write (chr (285) ) 

ends {for J := 
GotoxrY (BCOM,31,8C0IM,4]3);3 
write(chr (188) ) 

ends ‘¢for M :=3 


end; {procedure BASICSOX} 


) 


CER EE RRR EERE RHEE RHEE BEER EERE RHE KEKE RHR EERE REE HERE HEHS) 


FROCEDURE : CLOSEFILE 

WRITTEN BY =: Mike Neeley ® Bob Wooldridge, May,8s 
PURPOSE : Cioses the chatterbox file 
PARAMETERS =: none 

EXTERNAL 

NEEDS >: ALTERNATIVE =: stringl1iJ; 


{ HEHEHE HH HK HHH HHI HHH HH EHH EEE HEHEHE EERE EEE REE ER ERHHREH) 


procedure CLOSEFILES; 


var 
Ls 
CH 
ANGNIMITY 
moeine tie 
PROBLEMNAPIE 
meatier TLE 
Saget Le 
CHECK CODE 


X, COUNTER 


procedure GETANS; 


fsolits an answer from the user? 


begin 
repeat 
read t(kbd,CH)s: 
Meets £ a «. 2 J then 


-integers; 


char; 

char; 
stringi2]; 
stringlS8]; 
stringli4d: 
Texts 
array(ti..&4 


CH s= chr (ord (CH) -S2) ; 
Maeri GH ini L'°A‘w. 2°, © Hl 315 
ends {procedure GETANS?: 
begin 
clrscr; 
gotoxy (16,5)5 
write (‘Probiem Fiie Name: HHERHEH' DS 
Presa soe EVUMTER 2:= 15 
repeat tuntil COUNTER +83 
Soe ony (X5o) $ 
SETANSs 
CHECKCODECCOUNTERI] := CH; 
PeoeneeteseeeCODELLI] wn C ",#13]) then begin 
arice (CH); 
ee ee eS 
if (CH = #123) then begin 
CHECECGDEDC COUNTER] := ALTERNATIVES 


feats 
ty 


-o 


for L := (CGUNTER +1) to 3 do 
CHECKCODECLI += ° ° 
EOGUNTER  s— ae. 
ends; {if CH=#is>3 
if COUNTER = 7 then begin 
CHECECODELS] := ALTERNATIVES 
COUNTER := &3 
end; {if COUNTER=7>3 
COUNTER := CSUR eo ek. 
end: tif not usercoces 
until (CEGUNTER 2 a7. 


PROBLEMNAME := CHECKCODE; 


if PROBLEMNAME <> #13 then begin 
CHATRFILE := concat (FILEDRIVE,’: ’,PROBLEMNNAME, '.z2zw'); 
assign (CHECKFILE,CHATRFILE) ; 


{$15 

reset (CHECKFILE) ; 

t$I+} , 
if [Dresuit = 9 then begin 


gotoxy (18,10); 
WRIite ( BHAPPeESEX PLliLE CEUSED 9; 
read (CHECEPILE,USERF ILE ?is; 
ANONIMITY :3= copy (USERFILE.,2,1);3 
USERFILE =:= concat(’'C’,ANCNIMITY) ; 
rewrite (CHECKFILE) ; 
write (CHECKFILE, USERFILE); 

end {if [Oresults 

else begin 
gotoxy (17,19); 
sound (444); delay (25@) :nosound; 
write (°CHATTERBOQX FILE NOT FOUND’); 
delay (1EQ@@) ; 

end; 1@ises 

Close (CHECEKEFILE) ; 

Gelay (13@@)>:; 

ends {if PROBNAME>? 
ends (procedure OCLOUSEFILE> 


C HHH EHH REM EK RK HKEHE KEE REHR ERR RR KEHE KRHA KAEHREEAREESE | 


PROCEDURE : SETFILE (CANONYMOQUS: boolean); 
WRITTEN BY : Mike Neeley & Bob Wooldridge, May,&8é4 
PURFOSE : Sets up the chatterbox file (tcalled in the 


main oroagram) 
PARAMETERS 3: ANONYMOUS : pooiean; 
EXTERNAL 
NESS >: PROBNAME =: stringl@ids 
CLK KKEKEM EHR EKA EERE KEK EEE HERR ER KRHA RRR KKK RARAH ER REMERR ERE) 


oY OCeGunre SEV-ile; 


Yar 
ANOGNIMITY : chars 
USE rie : Sera ngtes 


CHATRF ILE stringli4]; 


Boeck rile text; 
begin 
CHATRFILE == concat(FILEDRIVE,’: ',PROBNAME,’.z2z2w'); 


assiqgn (CHECKFILE,CHATRFILE) ; 
if ANONYMOUS then 


ANONIMITY := ‘A’ 
=. = 
ANONIMITY := ‘N’s 
USERFILE := concat(‘'C’,ANGNIMITY) ; 


rewrite (CHECKFILE) 5s 
write (CHECKFILE, USERFILE) ; 
close (CHECKFILE) ; 

end; <procedure SETFILE> 
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CHEK KH EHH EHH EKER EHR KHEEK KE KH KK KAK KKK KE EKRKKKEAEKKEKKRAHKEMERHERE 
Ee Iiee : FILTER2.LIB (4373) 
WRITTEN &Y Mike Neeley % Bob Wooldridge, May,s8é 
FURPOSE Procedure library for TOUCHSTONE (COQP 
Criteria 


Fiiter Froqram) written as a part of a 
thesis for a 
Master of Science in Computer Systems 
Management, 
Naval Postgraduate School, Monterey, 
California 
CONTENTS : CHATRCHECK, SAVESCREEN, WRITESCREEN 


(HEH KKKKKKKKEKHKKKKHRKKHKHKKHKKHKKKKKKKKKHKKHRKRKKHRRKHKKHKHHKRHKKRHHKRKEK) 


FUNCTION : CHATRCHECK 
WRITTEN BY : Mike Neeley ®&® Bob Wooldridge, May,86 
PURPOSE : Reads the information in two files 


associated with a specific CHATREOX file and 
determines if the file is being usec Cand] 
lf a recentry entry has been made. 
FARAMETERS : none 
EXTERNAL 
NEEDS type 
STRINGS = stringlids 
DATASTRING = string [30]; 
var 
ALTERNATIVE : stringf1d; 
( PHAR REE MH REHM REE EEE ERE EEE EMER EEN RH ER HHHE) 


Procedure CHATRCHECE; 


Var 
MESSAGEWALITING, CHATAVAILABLE >: booleans 
CHATRF ILE : stringli4is 
CHECKFILE : texts 
USERCHEEE. : chars: 
LUISERNAME =: stringlsi; 
beqin 
MESSAGEWAITING := false; 


aati 
CHATAVAILABLE := trues 


CHATRFILE := 

GoncatiFlLLEDRIVE. > {PRO bsiate -AL ll SXNAhi ve ea ca ee 

assign (CHECKFILE,CHATRFILE) ; 

eee 

reset (CHECKFILE) 3 

co Dea 

if [Oresult = @ then begin 
reac (CHEECEPILE -USereneece 
if USERGHEEGK = 0 ener 

CHATAVAILABLE := false; 
end; {1f [Oresults 


144 


close (CHECKFILE) ; 


CHATRFEILE := 
concat (‘FILEDRIVE.,’: ° ,PROBNAME,ALTERNATIVE.’.zzq’): 
ee oem \CHECKE ICE ,CaATRe ILE) > 
Lei] 
reset (CHECKFILE) ; 
ce ot? 
if IDresult = @ then begin 
meageg CCHECKFILE , USERNAME) = 
if USERNAME <> NAMESTRING then 
MESSAGEWAITING := true; 
end; 4if TOQresult} 
close (CHECKFILE): 


window(1,1,80,25); 
if not CHATAVAILABLE then begin 
Soeeany tay. 2a) 5 
textbackground (red); 
write (¢° CHATTERBOX IN USE '); 
end Cif not CHATAVAILABLE} 
else begin 
if MESSAGEWAITING then begin 
Goce y Coy. 2a) 5 
textdbackground (red): 
write (’NEW CHATTERBOX ENTRY ~*) 
end tit MESSAGENWATTING: 
eise begin 
Botony (a7 _22) § 
textbackground (biue) ; 
write (°CHATTERBOX AVAILABLE’); 
end tif not CHATAVATLABLEs 
end; 
texthbackgroundc (bine); 
HemMaaWw ioc l~pt leat oj, piss 
end; {procedure CHATRCHECK> 


CHEEKS MRE K SKE ERA AH HERR EK KEE RRR E MERE KREKRAKKKKRKRR KKK HRKRHERHHE HS) 


rice : FILTERS. bin tes, 
WRITTEN BY : Mike Neeley ® Bob Wocidridge, Mavy,3é 
PURPOSE >: Procedure iibrary for TOUCHSTONE (COOP 


Criteria Filter Frogqram) 
thesis for a Master of Science in 


OT a 


Computer Systems Management, 
Postgraduate Schooi, 


CONTENTS : SCROLLEOX 


written as a part 


Naval 


Monterey, California 


(HERE KKRHHEHHKERKEKKEHEKKKKEKKKRKKKKKKKRKRKEKKKERKHKEREKKHRHHKHREHKEKE ) 


SCROLLEOX 
Mike Neeley 


PROCEDURE : 
WRITTEN BY : 


& Bob Wooldridqe, Mavyv,86 


Word processing secticn based on a program 
by Mark Hayes 


PURPOSE 


within that 


PARAMETERS =: XX,YY : 
ENDTEXT : 
TITVESEeDE-: 

EXTERNAL 

NEEDS ; PIUStR ree: 


HELPDRIVE 


PROBNAME 


Reads from a text file, 
specified window, 


puts text into a 
and ailows scroliing 
window 

upper left-hand corner caf 
scrolibox 
length of text 
1255) 
designates the title of the 
scroiliboax 


(190 lines or 


Grive on which thie problem 
elaborator file 1s Located 
drive on which the help files 
are located 

mame of the textfile called 


CEH HEE A KKH EERE REAR EERE KAR ELE EK RKEKREL RRR RKER KAREN HEERE) 


procecure CHATRECGK 


(FTILEDRIVE: char; PROBFILE: STRINGS; FERSNAME: STRINGS) ; 


forwards 


procecures SCROLLSEOX 


(XX, ¥¥:integer;sENDTEXT: integer; TITLECODE: char); 


type 
WPARRAY = arrayl1..100,1..50] of char; 
TEXTARRAY = arravii..10901] of 


StRINGSO = Gtringiskl: 


Yar 


ENDRUN. USEDE ICE. hNewania= 
SCROLLFOUND, EXPANDFOUND 


TEXTLINE, X. ¥, STOP 
LASTLINE, ENDSCROLL, 
A,B,F,1,0,K,05™ 


CH, TEMPCH1. 
INSTRDRIVE 


VBVESH2. 


CHECK EL INE 


USERCHECK 


stringlSsvis 


boolean: 
boolean; 
integers: 
integers 
integer; 


Lassorted 
counters: 

char; 

chars 


USERNAME, EXTENDER mestringl oa. 

INSTRF ILE = Stteingecs. 
EXPANDFILE, HELPFILE =: stringli4i]; 

WORE FILE 0G patos 

TEMPNAME SViatgiady El. uo) (Ot car. 
TEMPARRAY 3S ath AaVYa lt. . JOI~Ot Chars 

NAME >: array Ci..12351] of stringi2]; 
SEREEN = anhay Cie we Jolie. COON Of in cCecer: 
ATTRIBUTE | @Frravil.~25,1..9303 sft integer; 
WORDPROC : WPARRAY: 

TEMPLINE, WORDLINE : TEXTARRAY: 


procedure FILLSCREEN (STARTLINE : integer); 
{writes the file array to the screen starting at the; 
{line sent as a Parameters 


var 
WX 2: integer; 


begin tprocedure FILLSCREEN? 
ree is 
if EXPANDFOUND then begin 
for J := STARTLINE to (STARTLINE + &) do begin 
for K := 1 to 3S do begin 
QGotaorvt(K,F) 5 
write (WORDPROCCLJI,KI);: 
end; carat mi 
eS s-— P+ 1s 
end: {for J} 
end {if EXPANDFOUND?: 
else pDegin 
for J := STARTLINE to (STARTLINE + 8) do begin 
Garay .,F is 
writs (WORDLINELJI); 
Wos= wherex; 
for XK := W to 34 do 
writel’ “")3 
Pes EF + 15 
end; {for Js 
end; telses 
end; {procedure FILLSCREEN?; 


procedure SAVESCREEN(X.Y:sinteger?); 
(Reads the screen uncer the helpbox into an arrays 


begin {procedure SAVESCREEN? 
for A:= Y to (¥+1@) do begin 
for BH := X to (X+55) do begin 
SCREENTA,BI := 
MemNC#a989: (( fA-1)#160)+0(B-1) #2))043 
ATTRIBUTELA,8i := 
MemWC#BSOO: (( (A-1)*#160)+C0(B-1) 82) +1) 45 
end; CBs 


i197 


ends tAs 
end; {procedure SAVESCREEN; 


procedure WRITESCREEN(X,Y:s:integer); 
fwrite back the saved portion of the screens 


begin {procedure WRITESCREEN; 
for A:= ¥ to (¥+14) do begin 
for 8 := X to (X+55) do begin 
MemWCSBSOMs (6 (A-1)#160)+008B-1)*2))] i= 
SCREENCA,BI; 
MemWCSEBO8s (0 (A-1)*166)+0(B-1)8#2)+1) 4 := 
ATTRIBUTELCA,BI; 
ends; {Hs 
end; CAS 
end; {procedure WRITESCREENS 


begin {procedure SCROLLBOX> 
{ *#* SCREB SETUP FPORTIOUN $4430: 
SAVESCREEN(XX.YY)s 
textcolor(iS): textbackgroundi2): 
window(1,1,990,25); 
BASICSOK (KX YY. (KX SSS) 4 i ee (draw SCROLLSOCK window 
anc define; 
textcolor(@)3; texthbackground(15); 
gotoxy ((XX+8) ,YY);3 
case TITLECODE of {writes appropriate 
title of box? 
‘A’s’a’: 
begin 
write (¢° PROBLEM EXPLANAT IGN payee 
INSTRFILE := PRCBNAME: 
end; 
‘Bel 'b’ 
Segin 
write (¢' CHATTERBOX HELF SCREEN ke 
INSTRFILE s= ‘CHATRBOX’: 
end; 
eco 
begin 
write (¢€° INSTRUCTION SCREEN #1 ‘(P-1igeTO GUT) “oe 
INSTRFILE s= HELPEA = 
ends 
‘D','d° : 
begin 
write (° INSTRUCTION SCREEN #2 (F-14 TO QUIT) ‘); 
INSTRFILE := “HELFHX2’; 
ends 
a ee 
oegin 
write ¢€° INSTRUCTION SCREEN #2 (F-1@ TO @UiT) ‘> 
INSTRFILE := “HELPRX3’s 
end; 


begin 
write t° INSTRUCTION SCREEN 
INSTRFILE := ‘HELPHX4’; 
ands 
coe 
begin 
write (° 
INSTRFILE 
end; 
een: 
begin 
write (° INSTRUCTION SCREEN 
INSTRFILE := ‘HELPBXS’; 
end: 
eG 
beqin 
write tt’ INSTRUCTION SCREEN 
PeSime ihe 3: = MHELPEX? = 
end; 
og: 
beqin 
write <° INSTRUCTION SCREEN 
INSTRFILE == “HELPEX9’: 
ends 


ue ¢ Sian. ¢ 
2“. a x, 


INSTRUCTION SCREEN 
HELPBXS’: 


cegin 
write (° INSTRUCTIGN SCREEN 
INSTRFILE := ‘“HELPEX9’; 
end; 
ae” 
begin 
write (° INSTRUCTION au 
DietRrPlLe <= “RESPEATE 
ands 
‘M‘,/m’ : 
begin 
writs ¢° 
Pore LLE 
end; 
cite ots 
begin 
write (° 
THSVRFILE := 
ends 
ae oo 
begin 
write ¢° 
INSTRE ILE = 
end; 
oo 
ceqin 
wirite i° 
INSTREILE = 
ena : 


EN 


RUG T LOMe@SCREEN 


INST 
See rie ieraA dds 


INSTRUCTION SCREEN 
‘MELPEX12': 


INSTRUCTION SCREEN 
‘HELPBX13's 


C7 ION a 


NSTRU 
= “HELPRA14’ 


189 


#4 


#5 


#6 


#7 


#3 


+9 


#10 


#1 


#14 


(E=1@ 


(ee i 


te So 


(F—2 


(F-12 


(F=120) 


eee 


(ea 16 


Ce. 


F-1a 7 


TO 


re 


TO 


TO 


TO 


TO 


TO 


TO 


TS 


OUIT) 


WUIIT> ,° 


QUIT) 


GQUIT) 


GUIT) 


QUIT) 


QUTT) 


QUIT) 


QUIT) 


QUIT) 


. ¢ 
Fae ae 
% x e 


begin 
write {° PROBLEM EXPLANATION “es 
ends; 
end: tcase TIFLECODEs 


24 Weasel CCE osm Fi’, a’, 'Z°,°2°3 then beqin 


c’ 
EXTENDER ==" <cz2570. 
INSTRDRIVE := FILEDRIVE:; 
ens tif Wi Poeeege: 
elise begin 
EXTENDER := ‘zzy ; 


INSTRDRIVE := HELPDRIVE: 
ends; felse: 


if TITLECODE in C’'Z',’z’] then begin 

gotoxy €(XX), (¥¥+1@4))3 

write ¢° USE: UPS&DN ARROW KEYS, 

HOME ,END,FPS UP,Po Biel eieai tl) 

eng “1 TITLECODEs 
else neqin 

gotoxy (¢CXX+2), ¢¥YY+1@)):; 

wreite (‘USE: ARROW KEYS,HOME.END,PG UF,FG 

DN,TAB,DEL,RETURN’); 

end; ieises 
textcoloriis:: taxtbpackgroundi2) : 
Window iXX+i), C¥V+1) ,(XK4+54) ,0¥YY*#9) Ds iclear the screen 


areas 
clrscr; 
window ( (XxX+2) ,¢VY+1) , (XX+53) , (¥Y¥+9))3 fCidentify the text 
parameterss 


1 22° GeLE SEER =e eh oes 4 ae 


EAPANDFOUND := false; 
if TOTESBESDE ifn lL 2 , 23 hemes ean 
tar J := 1 to 3! do 


for KF s= 1 to 1828 do {the wordcprocessina 
array 1s3 
WORDPROEGE ,J2 3= chris: Cinitiaiized to ali 
blanks> 


EXFPANDFOUND := true 
end 126 1 eS awe 
Pise begin 

rise pia =e 


concat tIMSTRDRIVE, = ,INSTREIEE. 2.) ,e.qeice: 


assign (WORKFILE,HELPFILE); tapen CHATRFILE and 
read into; 

(+i 

reset (WOREFILG) s wword processing 
amt ay > 

ce bes 

.¢ ([Dresuit = @ then begin 

L 261% 


re 
p+ 
CS 


whiie (nat eof(WORKFILE)) and (1 <¢ENDTEXT+1)) do 
begin 
readin (WOREFILE,WORDLINELII): 
ese Le ae 
end: twhiie not eof} 
SCROLLFOUND := true; 
end tif [Oresult} 
else begin 
Bee Gaia oS 
Poe eC ODe wm lt Aas a 4 then 
write (°NO EXTENDED EXPLANATION FOR THIS PROBLEM: 3 


else 

write (’ HELP FILE NOT FOUND ON DISK’); 
gotoxy(S,7)3 
write {(° Press any key to continue ‘)3 


SCROLLFOUND := false; 
repeat until keypressed; 
end: Leise> 
Close (WORKFILE) ; 
end: telses 
{ #828 INITIALIZATION ##*« } 


LASTLINE : 


i 
USEDF ILE + 


= raise; <of run & the "dirty 61t" flag; 
if SCROLLFOUND or EXPANDFOUND then begin 
meeeocReeN (i): 
if EXPANDFOUND then 
ENDSCROLL := 100 
else 
ENDSCROLL := ENDTEXRXT:; tdesiqnate last line of scroli-:; 
conly texts 


Meea- 55 Ys= 1: Limitiailze column, rows 

Beanie LtINE 2:= i: initialize textiines 

ENDRUN := false; {initialize flag for end of run: 
4 £2 SCRELLING ROUTINE =*x 3; 

repeat 


gotomy(xX,Y): 
read (kbd,CH); 
case CH of 
Poe@eetic® ¢ t{reguiar characters; 
if EXPANDGFOUND then begin 
Boe ive += trues 
PT eeWORDe ROC TEX 4Ee Age. Ghrioer enen begin 
rerrcHi <= CH 
for K 3:= X to SY do begin 
TEMPCH2 := WORDPROCCTEXTLINE,E 4; 
WORD EPROCENEAMeENS gio 2=STEMEEH: 3 
AGtauy tt. ten se INe) s 
write (WORDPROCCITEXTLINE,& 4); 
[EMBER 3 — seb leone. 
end; {for K=X to Ss 


fi - 
a 


end WORDFPROC <> 
eise begin 
WORDFPROCCTEXTLINE.X] : 
write(ch)s 
ends (elise; 
XK S=O8K e213 
if Texte ane 
LASTLINE := TEXATLINESs: 
ends CL EXPANDFOUND>S 
#39: 
if EXPANDFOUND then osegin 
if X > 1 then begin 
X 2=,Ag= 1: 
gotoxy(x,Y¥)s 
for J := 
WORDFROCCTEXTLINE,J] 


+ LASTLINE then 


<BACK SPACES 


X to 49 do begin; 


WORDPROCCTEXTLINE,J+127: 
write (WORDPROCEITEXTLINE,J]); 


end; tfors 
end; t17% X>1} 
WORDPROCCTEXTLI 
gotoxy(saa, 7): 


=, 5@] 


— 
.= 
s 


Sink {22s 


write (WORDPROC(CTEATLINE , S89); 


end; 41if EXPANDFOUND? 
#9 os 
if EXPANDFOUND then 
if xX = 45 then 
A := A + Ss 
#13; 
if EXPANDFOUND then begin 
if Y < 9? then begin 
4 Wes 


N 


3 


Ys3= ¥ 
X := 1 
TEAg ied 
end il 
else begin 
DY TEATLINE 
TEXTLINE := 


Eo e> Meare NE Ve 
a 


TAB 


Key} 


{RETURN keys 


+ s 
a § 


i128 then seqin 
Te A pia Meas 


PIlLLSCREEN(TEXTLINEG — 37, 


X 3= 
end 
else begin 


1; 


sound (8@@) sdelay (39) snosound: 


Teaises 
elses 
{if EXPANDFOUND? 


ends 
eng; 
end; 
#2 /: 
cegin 
read (kbd,CH):s 
cas®2 CH of 
Foe 
begin 
if not 


(x 


tif 1EATEINGE <1 8C2 


CRe@ESEL DE 1m eee) 42 


{Too far 
ooOwns 


{ESCAPE keys 


then beain 


CHATRSOX (FILEDRIVE,FRCENAME ,NGMESTRING) ; 


p~b 
— 
tJ 


window ((XX+2) ,(¥Y+1) , (XX4+53) , (Y¥+9)); 
textcolor(15)3; textbackground(2); 
end; {if not TITLECODE} 


end: tcase #493 
#) #63 : ENDRUN i= trues; heey P-135tG ouit 3 
F2u: CUP arrow keys 
begin 
if Y > 1 then begin 
1 t= % =e: 
TEXTLINE s= TEXTLINE - 1; 
end {if Yi} 


else begin 
if TEXTLINE * 1 then begin 
TEXTLINE := TEXTLINE —- 1; 
FILLSCREEN (TEXTLINE) ; 
end Lif PEXTLENE +1} 
else begin 
sound (2608) ; delay (350) ;nosocund; 
{Too far up} 
end; (elses 


end; telset 
ands L#/72 cases 
#a0 =: {DOWN arrow kev} 
begin 
if Y¥Y < 9 then begin 
ae — iy fel = 
TEXATLINE s= TFEXTLINE + 1: 


end Lifts 
else begin ; 
if TEXTLINE < ENDSCROLL then begin 
Te ATL INE 3=" tee see 1: 
Peete oe et eee — 3) = 
end tif TEXTLINE<ENDSCROGLL?: 
Geise begin 
sound (d4ia) ;deiay (349) snosound; tToo far 


A 


downs 
ends (elise; 
end: .e@iset 
ends; C#BO cases 
#77 3 CRIGHT arrow key} 
if EXPANDFOUND then begin 
if A <= 3S@ then 
Koes koe | 
elise becin 
sound (2490) sdelayt(Sa)smosound:s fTao 
1 oipeutemGia Gy 
end; felse; 
end: fi EXPANDFOUND>? 
H/o CLEFT arrow keys 
If EXFANDFOUND then beqin 
mean - Lt eEhen 
Pee = Oe aa 


else begin 
sound (1200) ;delay (5M) synmosound; ifoa 
far Lefts 


p— 


td 


end; (eises 
end: 1elses 
#955 : {DELETE keys 
if EXPANDFOUND then begin 
for J := X to 49 da begin 
WORDPROCETEXTLINE,JJI := 
WORDPROCI TEXTLINE,J+14; 
write t(WORDPROCLTEATLINE,J1); 
end; Neale: 
WORDFROCETEATLINE,S@] := chrc¢32); 
gotoxy(sa@,Y); 
write (WORDPROCETEXTLINE,S@I1); 
ends; {if EXPANDFOUND:; 
#73 3 {PG UP key? 
beqin 
if (TEXTLINE-Y) + 9 then 
TEXTLINE := TEXTLINE —- 9? 
else peqin 
sound (2808) ;sdelay(S@) nosound; tToo far 
ups 


ends; telses 
FILLESEREEN (TEXTE INE-Y+1)3 
end; C#/3 Cases 
#81 : {PG ON key: 
negin 


if EXPANDFOUND then begin 
if TEXTLINE < 91 then 
TEXTLINE := TEXTLINE + 9 
else begin 
sound (880) sdelay(S@) snosound; tfoe far 
downs 


ane ie "EXPA ANDE DUNDs 
eice begin 
1f (TEXTLINE ay 6 Ese rOLi-138) then 
TEAXTISINE sS"TEATLINE +9 
else begin 
sound (80@) sdelay (58) snosound; ‘Too far 
downs 


end; teise;: 

ends (else; 

FILLSCREERMTEATLINE — Ysa) = 
end; L#391 cases 

te7 kG {HOME keys 

beqin 

TEATLINEG = =2- 

Aweo= 1s ¥ 3 ie 

FILLSCREERE(TEATEENE) 
ends {4/1 cases 


#79 3: CEND keys 
if EXPANDFOUND then beqin 
TEXTLINE := LASTLINE: 
2f LASTLINE + 9° then begin 
Vale 7 5 
FILLSCREEN(TEXTLINE — 8); 
enad 41 LASTLINE>93. 
eise begin 
FT eeSssaeenitd ): 
Y := LASTLINE; 
end; {eises 
X s= Ss 
end fif EXPANDFOUND> 
else begin 
TEXTLINE := ENDSCROLL; 
yes os 
FILLSCREEN (SNDSCROLE=s) : 
ends Lteise; 
end; 4case CH of} 
ends C#27) 


ends ~tCase CH of} 


*® * WORD WRAP PORTION GF THE WORDPROCESSING ROUTINE # # 
At the ena of the line, if the user is still tvoinag, 


this section causes the line to wrap around to the next 
line. 


+ oe ROK 


Cee ee FS Te Fe te EF RK Te Ue CUFhlU SeLhC(CUC EhC<CHh~<CORC CCH CCU 


1f ¢€X + SM) and (TEXTLINE < 1006) and EXPANDFOUND then 
begin 
A s= 30; 
if WORDPROCCTEXTLINE.,X2 @¢2 christ) then begin 
{test last char in line for? 
{Bianks 
Nigro eee he ee ie ee ee eine ee ered 
a {reset X to pos of 
last plank 7 
tor Mes= (XK + 13 to Sa do begin 
HMR OPRUGLIEATLING +L MAS” $ 
WORDPROCCTEXTLINE,M1I; 
imove the char to correct 3; 
gotoxy(M,Y); farray poss 
WORDPROCCTEXTLINE.M] := chr (32) 3 
write (WORDFROCLTEXTLINE.,.MIJ): Cerase wore fram 
enG of iines 


WRLilLs 
X s=> XK 


as 


a YY < tnen cegin 
Gace y (TI-xX, Yrs 2s 
write (WORDPROCCTEXTLINE+!1 ,~M—-XI) ; 
{write word at front of new lines 
ends {ifs 


ends et Gro 

po ee — A eet] s 
end ge aay 
else 

2 — 61 


bes 
bts 
CH 


TEXTLINE := TEXTLINE + 1; 


if ¥ < 9? then 
Y 3=" ae 

else Dbeqin 
Yo s= 33 
FILLSCREEN (‘Vee See 
sound (2890) sdeiay(s@) ynosouna; 
sound (38H): deiayis@? snosouncs 
sound (i202) ;delay (S42 ;nosound; 
sound (2980) ;deiay (SM) s;nosound; 

end; felses 

end {if 
until ENDRUN; 


(* * *® SAVE FILE PORTION *©® * *® © ® © &® © & &® EF H HH HE H KH 
* At the end of the wordorocessing session, the fiie is % 
* saved by moving all text iines to the end of the rile * 
*# so thev can be readjusted when the file is next ocnpenec. # 
* & e BF eH He HK KB H KR HEH KH HR HH HR HE BH H HK KH HE KH KH H KH HK H) 


if USEDFILE then beqin 
clnscern: 
textcolor(15); textbackgqround(®@); 
gotoxy4ilweee 
wreitet’® SAVING FROBLEM EXPLANATIGN ‘); 
EXPONDFILE = concattPiLEseive. =) jee GEeheeee a2c ee 


assign (WORKFILE,EXPANDFILE) ; {open CHATRFILE 
and read into ¢ 
rewrite (WOREFILE) ; {save the array to disks 


for J i= 1 toa 3@ do begin 

for - == 1 to 34 do 
TEMPARRAYCK := WORDPROCCOI,EI: 

FTEMPLINELG? 2S" Feh4Panke 

ends (fOr do 4S ere ats. 

for J := 1 to 32 do begin 
wiesitelm (WORE Sia, fee LNe is 1: 

ends {5 iot ee 

Close (WORKFILE?: 

end; {if WSEDEIEE:: 


end; ‘if SCROLLFOUND or EXPANDFOUND} 


%* *# + RETURN TO NORMS&L ROUTINE Oe ene eet Oe 
# Clears the chatterbox wincgow and rewrites the screpn = 
*# portion that was sSsavec when chatterbox was invoked. * 
* 


*& & & © ® EF He FE KE OKROR EON HE HK He HON OH KF KH EF BH KH H KH FY 


window (AX,YY, CAXt5S) , CY ¥+1@) ); 


cirser: 
windGyw (1.4 seis 2a..- 
WRITESEREEN =. ire twrilte oreviosus 


screen backs 
end; {procedure SCROLLBEBOX} 


(HERE HR EKA REAR AREER RE HHH KHER EAHA EEHHEEKREAAEKEHKRREAKRAAKRERHEEE) 
ti Se TLLTERS LIB. 126092) 
WRITTEN BY Mike Neeley % Hob Wooldridge, May,.36 
mont woe Procedure library far TOUCHSTONE (COOP 
Criteria Filter Frogram) written as a part 
Of a thesis for a Master of Science in 
Computer Svstems Management, Naval 
Postgraduate Schoaoi, Monterey, Caiifarnia 
CONTENTS >: CHATREOX 
(KHER EKER ER RE EH KERR EEK ERR EERE RK KERR EERE REE R EKER HEHEHE HEE) 
PROCECURE : CHATREOX 
WRITTEN BY : Mike Neeley & Bob Wooldridge, May,86 
Word processing section based on a program 
By Mark Hayes 


PURFOSE : Reads from a text file, puts text into a 
specified window, and allows scroliing 
within that windew for previous input; 
@llows word processing for the new input. 

Bore Tems +: — BREDRIVE : @rive aon which the fiie is 

located | 
Eeaee Le > mame of the textfiie called 
PRESNAME : name/initials of the user 
ALTERNATIVE : Character designating 
criteria/saiternative seiectisn 

EXTERNAL 

NEEDS >: type 

STRINGS = stringi8J 
SURiINGS = stringls2 

var 
ALTERNATIVE stringlid; 


INCLUBE file 
Sueno Cag iL PT SR2.LiB.FILTERS.LI 
(SERRE ARE HAGA LEER ARH ELAR HE KKK RAK AH ER LR RAE RE ERA EAR REE ERES | 


eee oe CHATREOX 
{(FILEDRIVE: char: PROBFILE: STRINGS: FERSNAME: STRINGS) 33 


type 
WPARRAY = arrav(1..125,1..551] of char; 
FILEARRAY = arrayl1..8@] of stringls554; 
DATASTRING = STRINGCSOI; 


Var 

Seno >. Grray © hee 2o gee oO i 
Or integer; 

ATTRIBUTE s erreyel..coml..3a] 


of integer; 
ENDRUN, USEDFILE, NEWENTRYSEEN 
CHANGE, SCROLLGNLY,OGKAY_TO_CHAT 
Mew= ILE ,. MEWLINE 
ioeleede, Aa Ys OIG 
ea Ss ENDSCROLL, CHECKLINE 
lp at glo 


boolean; 

boolean; 

boolean; 

imteger; 

integer; 

integer: cassorted 
counterss 


aoe 
te 


b+ 
he 
| 


CH, TEMPCHi, 
ANONIMITY 
USERFILE 
USERNAME 
CHATRFILE, 
TEMPLINE 
BUFFERLINE 
TEMENAME 
DATELINE,TE 
iAME 
CHECKFILE, TEXTFILE 
SAVELINE 

WORDPROC 


TEMPCH2, 


SAVEFILE 


SOARRAY 


function WRITEDATE(PERSNAME : 
{writes the date/time on a line at the bottom of an entry} 


type 


REGISTERS = record 


AX, HX,CX,DX,BF,S1,DS.ES, 


end; 


Wai 
REGS 
STRDATE 
STRTIME 
DA.MO HR. MN 
YR 
I 


begin 
with REGS do begin 
AX := $2509; 
msdos (REGS); 
Str tin. va 
striio(Dx) , DA): 
if (1cG(DX) 1@3 
DA := concatf 
Str (hi (Dx) ,MO)s: 
If hit DxX) < 14) 
MO := 
ends f{with REGS? 
with REGS da begin 
AA i= SLC: 
mscostReosS)s: 
sti ting (lA) SRR? 
str (ia (Cx) , MN): 
if <Le (e.g) 
PN 
end: 
tf LENGTH (CPERSNAME) = 
for 2 :=  Wiwe 
FERSNAME := 


concat (‘2 


USERCHECK : 


chars 


{recorda; 


<Ffunmction WRITEDATE? 


then 
"4° ,DA3 


‘me 


then 


‘Mo 


then 
2= concat (°@’ MN); 


vo 6then 


(J3-LENGTH (PERSHAMEWS 
concat (PERSNAME, 


STRINGS) =: 


cnar; 


stringl2I; 
Stila folds 
Sstringli4d; 
Stringtoaol: 
stringlSsids: 


array Li... S230 char: 

array (Cie. SS38aF “char: 

amray E1..leSieo0Ff seringial: 
text; 

FILEARRAY;: 

WrARRAY: 


DATASTRING; 


Pignbo : 


: REGISTERS: 
s Stmimgl ivi: 
S Stigimona s+ 
S Stringl 22; 
: stringl4]; 
=: integer; 


Go 
ys 


integer: 


if NEWLINE then begin 
WRIETEDATE := concat(’**#*#* °,PROBFILE.' FILE SEGUN: 
“saa ¢ .~LDAR 
wow, 98S ° HR, ": {tine FRAERKRERHEE DS 
NEWLINE := faise; 
end <i¢t NEWLINE? 
else 
WRITEDATE := conmcat(’** MESSAGE ENDED: 
“iia, 7° BBAy £ "YR, 
OMe. © gti, <<a ee ERmoMribi , Seeder jas 
end; {function WRITEDATE: 


procedure FILLSCREEN (STARTLINE : integer); 
{Sub-procedure2 to write the array to the screen starting 
at the line number sent as a parameters 


heal 


Tw 
ue J 


{orocedure FILLSCREEN} 
for J := STARTLINE to (STARTLINE + 6) dco begin 
if (WORDPROCECI,24='’*') and ({WORDPROCCI.403=°#') 
and tWORDPROC(IZ’,494=‘s°) then textbackground (1) 
elise 
TeNtTBackgrouncd (4) ; 
for F~ := 1 to 3M do begin 
Geteny (ii. le 
wirzt te tWORDPROCCY .Ka); 
ends ctor & 2f=f ito Ser 
ees —.e + 1; 
end; tfor Js 
textbackqround (4); 
end: {procedure FILLSCREEN? 


procedure SAVESCREEN (CX, ¥Y:integer); 
{Reads the screen under the heiopox into an array: 


begin {procedure SAVESCREEN: 
fem As=—= ¥ to i¥+iO> do tbegen 
for 8B := X ta {X+55) do begin 
SCREENCA,BI := 
MemWCSBBGO: (064-1) €160)+(0(8B-1)#2)) 43 
ATTRIBUTECA, SI] := 
MemWC#BBQQ: (0 (A-1)*160)+¢((B-1)#2)+1) 93 


end; CHs 
ends LAS 
ends forecedurea SAVESCHEEN? 


t-> 
p> 
) 


procedure WRITESCREEN(A,Y:integer?); 
fwrite back the saved portion of the screens 


begin ‘forocedure WRITESCREEN: 
for Az= Y¥Y to (Y¥+148) do begin 
for B := KX to (+55) do begin 
MamWCSBEGO0: (C(A-1)#168)+¢0(R-1)*#2))] = 
SCREENLTA, HI; 
MemWNCFBBMM: (¢(A-1)*150)+¢0(B-1)4234+1)) i= 
ATTRIBUTELA, BI; 
ends {Bs 
end; LAS 
end; Cprocedure WRITESCREEN: 


begin (procedure CHATREOX: 


(* * * SCREEN SET-UF FORTION * * * *£ © *© # # *% &® & © H& 8 # F 
# Saves the orotion of the screen under the chatterhou, + 
*% and initializes the color and size of the chatterbox. ¥% 
ee SF He HE He HH He HR HH HE KH HR HR HR KH HE KH HEH HE KH EF KF HR HK KH BI 


SAVESCREEN (25,2274 

temtcolortiis); textbackaround {4}; 

windew(1,1,80,25) ; 

HAS TGBOR 2a sta Sees. (draw CHATRBOX window 

and Gefrinaeas 

textcoalor (])}stextbackgroundtis); 

Q@tp. (2055122. 

write (€° CHATTERHOX CF-1 for help, F-Fr@ to quitl 7; 

gotoxy (25,22); 

write (’USE: ARROW KEYS.,HOME,END,FPS UP.PG 
DN,TARB, DEL ,RETURN' >; 

textcolor(isS)s; textbackground (4); 


windowt24,13,77,21i3 cthe parameters af the texts 
cirsew: {manipulation area and clear the>s 
window (26,15,/74,21); tscreen in that sector: 
gotoxyi4ia,i)s 

wirite ("LINE #2: °)s 


# *® CHATTERBOA-IN-USE CHECK * * * *# # # &® &® © & 8 H& EF F 
Checks to see if chattersox 15 in use; if sao, Guts a 
message on the screen to say so. 

HH HH ££ KH HH H HH BH eH KH HH HH HH HR He HH HN H HH HF OF 


a 
OK OK 


ii 


NEWFILE := faise: 
CHATRFILE := 

concat (FILEDRIVE, ': ',FROBFILE,ALTERNATIVE, ’.zzw'); 
assign (CHECKFILE,CHATRFILE): 


eos iTurn [/0 off, check for the > 
reset (CHECKFILE)s; texistence of the chatrfile, & +f 
eo he itumm the J/7 bac an H 
1+ [Gresult = 2 tnen begin 


read (CHECKFILE,USERFILE) ; 
WGERCHECK := copy (USERFILE, 


ee 
ANOMIMITY += eaay (USERPIEe. 


d; 
5 


izG@ 


arm 


+ ORO Ok 


Pe oeinemeiin = “[') then 
begin {If chatterbox is being used, 5 
DEAY TO CHAT := true; Lene “z2aw tile mil contain 
Boemetem i: — Comcat (O° ,ANGNIMITY) ; 
rewrite (CHECKFILE) ; <"O" for open: otherwise, it 
wreite (CHECKEFILE,USERFILE):; twill? have a "CC" for 
closed. 7 : 
ena 
else 
GEAY TO_CHAT :s= false; 
end 
else begin 
OQRAY TO_CHAT := true; 


USERFILE concat(’O’ ,ANONIMITY); 
rewrite (CHECKFILE) ; 
wri te (CHECKFILE,USERFILE) : 
NEWF ILE muUe; 
end: 
close tCHECKFILE) ; 


— 
— 


*® *® FILE SET-UP PCRTION * « © © #® &© ® © &© & KH FF KH KOH HE 
Gets and sets up the chatterbox file: moves all infs * 
in file to first 8@ lines and clears last 45 lines; ¥ 
na intormation before the last S@ lines is displaved but 
aii intermation is maintained in the chatterbex file. a 
*% *# & © & # 4H HB 4 He HF HH HR HE HE HR KH KR HR HH EH HF HR HR RR 


NEWLINE := false; 
Hem~eg <= 1 to 3S do tAtC the beginning of the pro- 3; 
foes t ca if5a da {qram,the wordprocessing array? 
WORDPROCEIE JI] == chr(a2); fis initialized to ail 
blanks 3 
save tiE := 
meemedut(rliEDRIVE, =: ,PROBFILE,ALTERNATIVE.,.’.zzz'): 
@o52aGm CiarxTFILE,SAVEFILE) s fonen CHATRFILE anc read intc; 
| (word Broecessing arrav 
oe Cur het4e@ Gf4. check far the 
reset (TFTEXTFILE) ; (existence Gt the workfile, & 
ie 2 fturn the 1/0 back con 
if [O0result = 23 then begin 
b= 1: 
wosle not ecf (TEXTFILE) do hecgin 
Peeeina EAT ILE? tThis sectien counts tre 
ie tS tmumber of lines in the text 
enc: {while not eof {fiie and uses that informa-— 
Poe ok eS {tion to put the correct intro 
i¢ I *» 88 then begin 4inte the array. If more than 
Poe — Pelee 0) s {80 lines are in the file, 
“t= Oo; foniv the last S@ are put into 
aa oe eee A Li) 3 (chatterbox +ror review. 
for) s= i to K do 
Peem aren TFILE)s 
engo {if [783 


a, 4, a ‘ad 


ee 


vd 


RA bd bed bot Mod Ld 


ie 
TEXTFILE): 


for L =:= K to I do 


readin (TEXTFILE,SAVELINEL (L-K) + 1 + MJ); 


for I s= (t+1id to 8&4 do begin 
BUFFERLINE := SAVELINEELI i: 
for dU = 1 ®tewsarae 
WORDPROCCI,JI] <= SUPFERLINECJI; 
end; {for I s= 13 


end {if [Oresult+> 


el 


Se 
NEWLINE 2:= true; 


close (TEXTFILE)s: 
* # LOCATE PREVIOUS FILES 2 % © 4 © hee eee eee 
Locates iast incident of user name anc starts file 5 
review at that point; if last incident i8 after iine /77,% 
the file review starts at lines GS. i 
ee # # © # HK HR KH KH HH KH HK KH HE HEH H HE HK HR HE HH HH HOE OK 
for J := 1 to 8@ do 
tor 2d sg] else 2. co Sean 
TEMPNAMEL P=20 i) 2 — HR heel a 
NAMED TI == TEMPNAMEs 
end; 
USERNAME := PERSNAME; 
for I := 1 to 3 do (Change username to ail caps + 
if USERNAMEL £29 inv ane 2 teen 
USERNAMEDC II == chr iord(USERNAMECII) - 32)3 
if LENGTHIUSERNAME) <3 then 
for I := 1 to (3-LENGTH(USERNAME)) da 
USERNAME == concat (USERNAME.°’ ‘)3 
I 3= So; 
if nNOntNEWFILE? then 
while (I 3 1) and ‘(NAMECIIT <> USERNAME) and (NAMELCII <> 
Lae) ce 
1 3:> i. 
else begin 
TEMPNAME := ‘227; Set up "file begin” iine;s 


en 


Oa ee ee es 
WCRDFPROCCS1,J43 := TEMPNAMECIU-SOa; 
TEMPLINE 2= WRITEDATE ('###°); 
for J s= 2 to 49 do 
WORDPRCOCCSi,J] := TEMPLINECJ; 
ds (elses 


ee 


€ 


xe 


kOe KK 


see INITIALIZATION = + * © * * #£ # * *% % #8 Gemee ew we < 
Initiaiizes all the necessary valuables needed to start 
the worcd-processing/scroailing section of the procedure. 
& # £ e # HH KR KH KH HH HK KH HR KR KH KR ES HR HH HH KH KR HR H 


it —f + 75 then begin 
SCROLLONLY := true; 
ei See ie 75) 

PEA TLINE.« 
Pea  clt iss 9s 
else GFeqin 

SCROLLOANLY 


FILLSCREEN (1); {draw initial screen 
TEXTLINE := =I + 63 

end; {elses 

if I «<> 8@ then begin {indicates on the screen 


entries not yets 
Gmegeyi25,1)s 


write (‘#NEW ENTRIES*’)s; 
Seer ecororila); texibSackemound (4) 
NEWENTRYSESN := false: 


ana e ge? 


SHANGE := rue; 
SHESERGLi := Sis 


40desicnate iast Line of sersii 
LOoniv text 
Meese YS = 78 initialize column, row, ana 
LASTLINE := G1; {last line of text 
ENDRUN := false; {initialize the flag for end 
USEDFILE := false; tof run & the “cirty biz aelac 
BeeeRLINE <= @; 
® 4+ WORDPROCESSING SOUTINE & 2 + + *& & =F HH F&F H SF KH & 
A Ssimpie wordorccessor which aliows the user to writes 


messages in the chatterodox. 


ee © See tt Fete se et £t +t £ FOF ££ HR FO FF KH + HF HF KF OK OX 


repeat iBeqin wordorccessing routine 
ie get Ne s TEXTLINE then oegqin 

gotoxv t49,1. 

write (° ) 

gotox y (48,1) 

pi 


ne 


é 


; twrite text line cn top of ci 
writedjTEATLINE) s icnatterocx 3 
Gaze iawwe 2= TEXTLINE: 

Pee (eee te == ENDSCRELLI and 
(SCROLLONLY = taise) then 
CHANGE := trues 
if (TEXTLINE = ENDSCROLL) and (SCROLLONLY = true? 
CHANGE := true; 
i+ CHANGE then cegin Lthis section tests for 
Gita yeas 2 5 {change in the status 
27 SERGEZBNLY tren 
begin {from wordprocessina to 


et 


(seen/answered by the user 


when 
textcolor(3i)}; textdackground (4); tthere are new 


= talse; tinitialize flags for info line; 


+ 
ie 
+ 
* 
+, 
5 
Te 
ZS 
+. 
Z 
% 
7 
a 
*. 
av 
J 
* 
ay 
VY, 
J 
- + 
> 
. 
+ 
rage 
CTiseEeRN 


textcolon< e- 
textbackground (1i3)3; iscroli-oniv and changes ; 
write, ( WORDPROCESSING SECTION 2: 
{the label in the cht/5o0x: 
SCROLLONLY := faises 
if NEWENTRYSEEN = faise then ceaqin <terases NEW 


ENTRIES t 
textcoiortia); textbackground (4); fflagq oan 
screen; 
Notas yy \ 2a 
write (° ee 
NEWENTRYSEEN := trues; 
end; {if NEWENTRYSEEN=trues 
end ‘14 SCROLLONLY> 
else beqin 
textcolor(@); textbackground(1®); 
write (‘SCROLLING—-GNLY SECTION’); 
SCROLLONLY := true: 
end; felse>; 
textcolor(15)s; textbackground (4);- 
sound (icg4i;3;delay (149) 3;noscund; 
CHANGE := false; 
end: Lit CHANGE> 
ends Li* CHEERL ING; 
qaoteoxn waa, ) 7 
“ead tkbd,CH;s 
case CH of 
recent 18 2: ces {regular characters>s 
begin 
If (TEXTLINE + ENDSCROLL) and OKAY _TO_CHAT then 
begin 


USEDPILE sa true: 
1# WORDPROCCTEXTLINE.X3 <2 chrt32) then dvegin 
TEMPCRs. = aie. 
for f 3= # fo SG cdo secarcn 
TEMPCH2 := WORDPROCITEXTLINE,K Is; 
WCORDPROCL Tek@GLiniast.¢ = Terre: 
actoxryvikhe tes dia hee 
write (WORDFPROCCTEXTLINE.KI) ; 
TEMPCHI <= 7 FEMPCHs: 
end; <for K=K to Si 
end 41 WORDPROC <> chr (32)3 
else begin 
WORDPROCE TEAT CINE sees — Cin 
wiritetchs : 
end; teise>s 
xX 2= X + 1; 
1f TEXTLINE > LASTLINE then 
LASTLINE := TEXTLINESs 
end; L1f TEXTPILE | ENDSER SERS 
if (TEATDOPNE + ENDSCRCLEL) and nak (aba? aie 
then osegin 
cirser; 
textcolior(sids textbacksground ()) ; 
Gotoxy (6,4); 


124 


write(’ CHATTEREBOXK IN USE —- Word processing 
Bacay Coys! : 


writet’ not available at this time. 
Geeey (o.,4) s 
Wireiocue ¢* Fress any key to continus 


textcolar(t1sS); textbackground (4) ; 

repeat until keypressed; 

gare 7yvecl, i> 

cei Ceewor ti) ss tCextbackarcund< 12): 

write (‘WORDPROCESSING SECTION’); 

textcolorivis); textdbackground (4); 

gotoxy (44,1); 

write (°LINE #: 

TEXTLINE :s= G2; 

Y “s=—9; 

pl oe RobN Molex Rien = — 6)’; 
ends if (TEXTLINESENDSCROLL) s 


82°) 3 


end: {case #22-#1253 
#5: +BHACK SPACES 
begin 
1f Xk = 1 than begin 
eA LS 
GOeeytAs 1) 5 
eo _=— 


or J := X to 49 do beqin; 
WORBDPROCCTEATLINE,JG := 
WER DPROCECTEAgLINE 2414; 
Wreite (\WORDPRGELT=H4 TL IME ge 30 
end; Vor s 
end; Lat CAS 1S 
WORDPROCCTEXTLINE,S@1] 2= chrt32);5 
Howox y (oes): 
write (WORDPROCCTEXTLINE.,.3S01]); 
end; {case #65 
wa Ss CTAB keys 


g 

X s= Ss 

dq: 

iss CRETURN key? 


then segin 
trae 
FfExTLINeE + os 


XTLINE <123 then oegin 
TEXTLINE := TEXTLINE + 1; 
FILLSCREEN(TEXTLINE — 6)3 
X s= 13 
end {if TEXTLINE <i233 
eise 
sound (S02) ;delay(59):;nosound; {Too far downs 
ends; (elses 
if TEXTLINE = LASTLINE then 
LASTLINE := TEXTLINES 


pre 
1.) 
ft 


Ne 


“me 


+ 


end; 1#1S Cases 
#275 
begin 
read (kdbaq.CH):; 
case OH of 
#O9 : 
begin oe | 
SCROLLEGA (Ss44 oo. ES 
textcolor (15); textbackgrotund (4) ; 
window (26,13,746,21)3 
tNOTE: after scrollbox is calied, coiar ana 
window must be reinitialized by the 
Originating programs 
ends 
#451 =: 
beqin 
SCROLLBOX (4,4,5@,'°A'); 
textcolortiS); textbackoround (4); 
WLM OW Mes to. f Ogi? § 
tNOTEs after scrollbox is called, cclor ana 
Window must be reinitialized bv the 
sriginating program: 
end; 


{ESCAPE key} 


key for help; 


#53 : ENDRUN := true; {hey Foleees gues 
Hye {UP arrow ev: 
Segin 


if ¥Y¥ * 3S then beagin 
oe eed 
VEATL INE: 
end fif Yol 
else begin 
1f TEXTLINE = i then besin 
(EATE ING: = sPexATLINEV— 1 = 
PILESERERN- (TEX TLINE?: 
end Claes (Lie 8S 
else 
sound (28@@):delay(s@); 
nosound: {Too far ups 
end; 1eises 
end; C#/72 cases 


= TEXTLINE — 1: 


#EM : “DOWN arrow kev} 
begin 
if ¥ < 9 then begin 
i> se ot ele 
TEXTLINE 2= TEXTLINE + ts; 


and ah 
else begin 
if TEXTLINE < 123 then begin 
ie x CSN — eA tL iNe ads 
PILESERBEN TeX eiie 4) - 
Cla wit Tex Reine < iss s 
else 
sound (S@Q) sdelay(a@)s; 
mosound; CToo far down} 
end; celses 


i¢ TEXTLINE > LASTLINE then 
LASTLINE s= TEATLINES 


end: {#894 cases 
#77 3 CRIGHT arrow kaevi 
RegGiN 
if X *£ SM then begin 
A $= A + 13 
end cits 
else 


sound (2800) saqelay (sd: ; 
nosound; tToo far right: 
ends; t#7/ case; 
#735 =: {LEFT arrow key; 


af X > 1 then begin 


aise 
sound i124@)sdelay (S@) ; 
mosound; Cfoo far lefts 
enc; C#7S Cases 
#O2 3 {DELETE key: 
segin 
1 TEXTLINE + ENDSCROLL then begin 
for J := X to 49 ao begin 
WEREPRGELTEATLINE.d I += 
WORDPROCCTEATLINE,G+1ld; 
write (WORDPROCCTEXTLINE,J4); 
end: {fory 
WORDPROCCTEXTLINE,S@] s= chr (S32); 
gotoxy{s@.Y):; 
wreite (NWORDPROCETEXTLINE,S@I1); 
end: if TEXTLINE>ENDSCROLL} 
enc: C#BS cases 
He | “PG UP kevi 
begin 
Mpele kite 29/7 shen 
LoCteoNe 2 = TEATLINE>— 7 
else begin 
sound (28900) ;celay its) ; 
nosound; iToo far ups 
TEXTLINE s= is 


Y s= 3: 
ends (elise; 
Bere sores (eA ee Yess 
end; 44/5 Cases 
#81 : {CFG DN kev 
begin 


tf USEDFILE or NEWENTRYSEEN then 
See 2= L225 else STOP <== 82; 

eee te A lod wee | OP Fern en 
TeAPLINE t= TFTEXTLINE + 7 

else begin 


ft 
tJ 
“J 


if STOP = 123 then Gbegin 
sound (800) sdeliavy (3) ; 
go> Cla iTag far downs 
Sit 91 GP—f2e5 


— 
ed Geir 


THOME keys 


Vt aes 
FILLSCREEN (TEXTLINE) 3; 
end; C#71 cases 
H/F CEND 
begin 
i USEDF TEE 
TEXTLINE 
else 
TEXATLINE : 
Yea os 
See eslaeeEM 


then 


Stal ae 


gs 


GUN (ies NES =e 


ends; C#79 cases 
and: wcase CHs 
ands LHL 7S 
and; fcase CH of 
* * WORD WRAF PORTION GF THE WORDPROCESSING ROUTINE * # * 
At the end of the line, if the user is still typing, + 
this section causes the line to wrap arcund to the next #* 
tine. es 
+ © e £8 He HH HF BH H 4 HE HR KH H HB MN HB HH HF SF H KH HK He HE ER 
if (X - 7M) anG@ (Ter TLinG — 2. ana fee ae 
then begin 
st Se 
if WORDPROCETEXTLINE.,XG <> chrica) then begin 
{test last char ae Linewrar 3 
tblank 5 
while WORDPROCDTTEATLINE, AI «f+ chert 22} co begin 
X == X —- 1; reset X to pos of last blank + 
end; twhiles 
for M s= tAse 10985 S40 soo Sera 
WORDPROCLTEATLINE+) JMS 7 Sasa ee Ree EA ie oN ee 
{move tne char to correct } 


GOCOK Ye ae tarray pos 

WORDPROCETEXTLINE MI soe ie Cee ee 

write (WORDFPROCCTEXTLINE,MI3); Cerase word 
of lines 


ha owt 


trom end 


if ¥Y¥ « GY then Segin 
GOtOxY thar 5 ya 
wii te (WORDPROCE Ten TLINE +l ei 


fweite word at front of new line} 
end: “ti; 


+ 
tJ 
CO 


kk OR Ok OR OK OF 


end; itors 
nee AM—K) 61s 
end Naor a 
aise 
As 
rEXTLINE s:= TEXTLINE + 13 
if ¥Y < 9 then 
Youi= ¥Y + 4 
else beqin 
Vf a 


FILLSCREEN (TEXYTLINE — 1); 
sound (26980) sdeiay (SG) ;nosound; 
sound (800) s;delay (5M) ;nosound; 
sound (1290) sdelav (30) ;nosound; 
sound (2000) ;delay (3@) ;nosound; 
end; 4else; 
end {if 
until ENDRUN:; 


* * SAVE FILE FPORTIGN * * *© © #+ © %& © © €£ © KH © & H HH F 


At the end of the werdprocessing session, the file is + 
saved Sy moving all text lines to the end of the rile * 
sc tney can be readjusted when the file is next cpenec. = 
A date/time/signature line is adced at the end ofr each * 
S@ssicm to identify it. * 
€# £ € * © £ © 4+ KH % BF H RF HW H HB H HF KH HH H KH HH HF H HF HF F 
iy USEDFILE or NEWFILE tnen begin 
clrser; 
textcolor(1s); textbackground ()) ; 
Gaecarytis,o) 3 
write(’ SAVING CHATTEREOX FILE ‘); 
if USEDFILE then begin 
ASTLIHE += =8LASTL ANB + 2: CMake room ror 
date/time line & 
fom fee— ol £O 3 aoe {Save user name in 


hidden file r 
WORDPROCE (LAS;TLINE) ,(I+54) 1] 2:= copv(USERNAME,I.1): 


17 ANONTMITY = ‘A’ then 
TEMPLINE := WRITEDATE ( ‘«#**x’ ) 
elise 


TEMPLINE == WRITEDATECUSERNAME); {get date/time line 


for file; 


Bowes = ta 49 de 
Pee oo = Cory tiEMPLiNE dg. 12.; 
for VUos= £< tao 497 do 
WORDPRGOC CCLASTLINE) ,JJ 2:= (DATELINELJII) ; 
end; Got ISEDFILE and eee NEWF ILE? 
SAVEFILE := 
Secs vias wm sg OME fie.ALTERATIVE, *°.222°)3 
AaA=Ss1gn (TEXTE ILE,SAVEFILE): tcopen SAVEFILE and 


OK OF 


ee OK 


if NEWFILE then : 
rewrite (TEXTFILE 
eise beqin 
ei 
append (TEXTFILE) ; 
<5 i+; 
if [Oresult <> G@ then 
rewrite (TEAXATFILE) : 
ends {(eilses 
for J := 81 to LASTLINE do begin 
for K += TieGO so jee 
TEMPARRAYCKI] += WORDPROCCI,F I; 
SAVELINELI-80] == TEMPARRAY: 
end; {for J := 81 to LASTLINES 
for J := 81 to LASTLINE do begin 
writeln (TEXTFILE,SAVELINECJ-8@]) ; 
end; {for J} 
close(TEXTFILE); 


® *® USER FILE UPDATE * eK + KH KH H HB HR KH KH H HH KH H KH H 


This section updates the file containing the name of 
the last user of the chatterbox. 
+ £ * # # # # BH € H H HH HH HF He HE HB HE EH HE HF HE HE KO 


CHATRFEILE := 
COnGaSe (FP lwavrne 2a] i. Pre 
assign (CHECK FILE.,CHATREIL 
rewrite (CHECKFILE) ; 
write (CHECKFILE ,PERSNAME) ; 
close (CHECKFILE) ; 
end; a2% USEDE TEES 


ae 
& 
+ 


*® *® [IN-USE FLAG UPDATE ee © £ & ££ KH KH HH KR KH KH HEH HF H H HB FE 


This section usdates tne file indicating that the 
mhatterbox file 1s available for use. 
H * £ ££ # £8 H# © H HH HR HK KH KH KH HK He KR KH KH KK KH HK HK OB 


tr URKAY TO CHAT then begin 
CHATRFILE := 
concat (F ILEDRIVE, +: ,PRUOBP ILE Abel ecteat) Jae ee 
assign (CHECEFILE,CHATRFILE:? ; 
USERFILE := concat(’C’,ANONIMITY) ; 
rewrite (CHECKFILE)s; 
Wid te (CHEER ee Sea ile): 
jiese (Chetliri2e - 
end: cif DOKAY TO CHAT? 


1-32 


+ 


= 


+ 


&® *® * RETURN TO NORMAL ROCUTINE Eee < Ae Ree RK EO 


* Clears the chatterbox window and rewrites the screen 

®# sortion that was saved when chatterbox was invoked. 

££ # #8 Ke HH HK HE BH HE H HH KH HEH HH HH KF HK Se H KR HR 
Wimaew (i oy les /GeLe! ; 
Slieser 5 
window (1,1,88,25); ’ 
Nee eG ameN (25.,2.)% twrite orevicus screen 5acx 

end; eoprocecurs CHATREOKsS 


bok OK 


orocecture® NewNumpbertvar Names: iii RAPP ay so loa mae 
integer }3 


{ SRS REHEARSE HEE SHE MPKERRESSHEEERRESEERSR EER AER CASK RAERE REE 


we ee i > NEWNUMSER * 
&# SUPPORTS PROGRAM =: CTOUCH.PAS ss 
* LOCAL VARIABLES : FLAGIRENUMBER, FLAGZRENUMBER, + 
+ FLAGSRENUMBER ~ 
* GLOBAL VARTABLES : TRACKI, LIMMIT, NAMES, L, M, WN, * 
* PROBLEMFLAG * 
* ARRAYS USED >: CRITARRAY * 
*% FILES ALCLEESSED >: KRITERIAFILE t 
* EXTERNAL CALLS >: NUNE * 
® EXTERNAL FILTERS : NONE * 
* CALLED FROM >: LOADARRAY, NEWWRITE, CHANGERECORD # 
ee onines S : RENUMBERS EVERYTHING IN THE EVENT * 
% THAT A RECORD HAS SEEN DELETED OR « 
© iF THE USER iS At THe POINT Ske ee 
% HIS FILE HAS BEEN MERGED WITH * 
oe STHER COMBS eS ene & 


ELSA MEERA SEERA ERA EERE RRR KARE HERSEK AHR HES 


War 
FLAGIRENUMSER, FLAGZSRENUMBER, FLAGSRENUMBER  : INTEGER; 


begin (NewNumber + 
reset (kriteriatiia):; 
24 tilesizetkriteriatfile) 4W then 
Qegin C1? filesize; 
Tracki := i; FiagifeNumber := @; 


repeat 
Names€Trackii.StatFlag := probdlemFlaa: 


case nameslTrackili.flagi of 


te-i9Q : begin {insice case flacii 
it namesCTrackil.fiagz = @ 
then 
begin 


wenumbering of Major Criteria; 
FiliaglReNumber := 
FiagifkeNumper + 1; 


bi 


mnamesCTrackil.fiagi i= 
raagilResSumber ; 

Fiag2ReNumber := @: 

FiaglReNumber i= Js 


end; {Renumbering of 
Major Criteria; 


case namesiTrackil.flaq2 oar 


1..190 : begin tInside case rlag2s 
it namesCTrackild.tiaga = @ 

then ; 
begin <Renumbering oat 


Sub Criteria: 
Flag2ReNumber := 
Flag2ReNumber + 13 
namesCTrackiljd.flagl 
FlagiReNumber ; 
names(€Trackil.flag2 
Flag2ReNumber ; 
end; tRenumbering of 
Sub Uriterias 


~ 


case mamesifrackli.flag3 af 


1..189 : beqin (Inside case fiagii 
FiagiheNumper := 
FlagiReNumber + is 
namesCTrackil.fiagi := 
FiagikeNumber ; 
names(CTrackij.fiagl := 
Flag2ReNumber ; 
namesCTrackij.flags i= 
FlagZ2heNumber ; 
end; 4Inside case flags; 
end; icase statement flags; 
ends; Linside case flagii 
ends case statement flag: 
end; cinside case flagti: 
ends: tCase statement fiagis 
1 := Names(fTrackij.Flagi * 14G@; 


m s= NamestTrackil.Fiage += 18; 
ms3s= Namesifrackil.riage: 
NamesCTrackild.CneckPoint := 1 + m+tns 
raciiss= igackli.+ 1: 
until frackl = Limmit; 
ends: tif tiilesize; 


close éxriteriatile); 


end; (NewNumber + 


+7 
i Ju 


procedure Switch(¥VYar STU 


Vale 
TEMPSTU 


Cialregs 


procedure CritSort(var Names 


integer); 


» SUZ) Ss  Cethece. 


CritArrays limmict 


(HECKER EE KKH EREERKEKRERKKEKRHEEKRHEEKREKRHE KEKE ERKRRREMRERRHRERKR KERR HERE EH 


* PROCEDURE : 
* SUFPORTS FROGRAM  : 
* LOCAL VARIABLES : 
% $LOBAL VARIABLES - : 
*% ARRAYS USED : 
= Piles ele sons : 
% EXTERNAL CALLS : 
*® cGATSRNAL Fie fesSoeee 
* CALLED FROM : 
* J PURE CSE : 
# 
+ 
+f 
*% 
+ 


CRITSOGRT * 
CRh@uUcotsFAS.. -eaese sens £ 
NOEXCHANGES, FURST, PASS, LIMID + 
LIMMIT, NAMES es 
CRITARRAY ot 
NONE & 
SWITCH +e 
NONE * 
ALLTOGETHER, _LOGCDARRAY, NEWWRITE ¥* 
THiS PRECELDURE SG=see MERMERIC Son ae 
THAT KEEPS ALL MAJGR CRITERIA AND «* 
SUBSETS GF EACH MAJOR CRITERIA + 


TOGETHER. 
CReeCrPSiNt PORTION hes ee 
(CRI Eee 


THE SORT 15 MADE GN’ THE 


= 
ey 


RECORD 
re 


HKERERSREERRRERAREEERHREKR RE RERKRERER TEKH REHEK EERE RER RHEE ESTEE) 


VT 
NOE KCHANGES : BOOLEAN; 
PURS( 2 FAS See eee LMI EGER. 
SeGgin (CE eoort > 
.iMiGd := Limmpe > ls bigsass eee 
if limid += 1! then 
begin 
repeat 
NOeKChHanges := True; 
for Furst := 1] t5 limes FPacs ao 


if (Names 


beqin 
Swit 
Noex 


Furstid.checkpoint 
Lo Seheckrarne 


me 
a 


then 


{Exchange 
ch(NamesfFurstl, 
changes False; 


Li4 


NamesCFurst + 


NamesCFurst + 11); 


end; tExchanges 
Pass := Pass + 1; 


untLii Noexchances: 
end; 


rm 


end; Grea C oer es 


proecedures sauobiesort(var Names : critaArray:; 
Limmit =: integer); 


C EHH KKRKKKKRHRKRRKHHHEHEKRKHERHKRKRKRAHRHHRAKHRRKAKHRKRKRHKKKRAKRRHKKRAK EH HE 


*% PROCEDURE : BUBBLESORT * 
% SUPPORTS PROGRAM =: CTOQUCH. FAS, FLAGSET.PAS * 
*% ‘LCLCAL VARTAALES >: NOEXCHANGES, FURST, FASS, LIMID * 
*# GLOBAL VARTASBLES : LIMMIT, NAMES + 
* ARRAYS USED >: CRITARRAY * 
* FIte&sS ACCESSED >: WONE © 
€ EATERNAL CALLS am SWITCH + 
%® EXTERNAL FILTERS : NONE = 
* CALLED FROM Toe reibe Peek # 
= PURPOSE s THIS PROCEDURE DCES AN ALPHA SORT * 
+ THAT FLAGS ALL DUPLICATE MAJOR e 
# Pensa See ING aed IN THE © 
= peace - 8 PtONM POC THE RECORD + 
& ERIREC” % 


HHKKAHAAKKKKAEKEHHEHHEKREHKH HEHEHE KKH KKKKKKRKERKRKREHEHRRKRKHHRKKRHRHRESE 


Yar 
MOE XCHANGES >: EBDOLEAN: 
mesatgivics. t.. tie = Ei Src 
b2eqin 4HuboieSorts 


if iimid * 1 then 
begin 
repeat 
Noexchanges := True; 
ferme acst := IReOwlimia = Fass ag 
i¢ @NameslFursts.Critmame = 
NamesfFurst + Li.scritname) then 
begin TExcnanges 
Switch (NamestCFursti, NamestFurst + 17); 
Noexchanges := Faise; 
ena: CExchenges 


bas 
tj 
CJ) 


ends 


end: {Bubobl eSort; 


crocecure Ocometer; 


CSREES EHR E ESHER RRS HEEARE RHA SERRA ERR SHEARS 


* 


eK KR RK ROR HD OH 


MERGER EAR ERE SSE RSA ESAS EERE ERE EERE REESE ERE ESE 


Peele DURE 
SUPPORTS FROGRAM 
LOCAL VARTABLES 
GLOBAL VARIABLES 
ARRAYS USED 
PILES ACCeSseb 
EXTERNAL CALLS 
EXTERNAL FILTERS 
CALLERS ERE 
Shee ae 


38 as as as a8 aa as ss as as 


peqin 
gotoxyii6e,24); 


na 


iy 

pm 

Ui 
iy om i 
if) 


= 


“4 


3 
_ 
ri 


d 


GotorY (252405 


CDOMETER 

See ein 

MONE 

ALTERNATIVE, FPROBLEMFLAG 

NONE 

NONE 

NONE 

NONE 

LOADARRAY, INITVARIABLES.,. WINDGWS 
THIS PROCESBURE WRITES Oe eae 
BOTIGM SF tre SCRE Pesierne 
USER AT WHAT STAGE HE I5 IN. 


THE 


xe Ok kK Kk K ROK Ke A 


ot 


begin (Qdometer > 
ptios= 13) pt2Z2.s:= 7 eeeeoe:- 7c; pt4 := 253; 
wWindew( Gt lo pee .prs feet) 
textbackgroundtred) ; 
case FroblemFiag of 
"aloo if alternative = ‘A’ then 


write” Enput °)3; 


writet( Majer >; 


alternative = ‘SS’ then 
peqin 


QorBAyY (9,24) 5 


wreite(’ Sub Criteria ‘}; 
ends 
ie; ees if aiternative = ‘f’ then 
negin 
GOlek (22.247 - 
write (” Tertiamy iormeeeri a as 
end: 
i oe i¢# alternative = ‘SA’ then 
3eGinNn 
QOtOAY (15,24) 3 so6ri Cee ee 
GOtOAY ($2,241 30 Wed eer eee eee 


end 
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aw 


else 


begin 
HOEGAY (25247 5 write(’ Major 
SotoxyY (49,24)3; writet’ Holding 
ends 
if alternative = ‘A’ then 
begin 


soetonY (15,24); write’ Input 
gotoky (42,24); 
write(’ Review Alternatives 
end 
else 
beqin | 
gotoxy (2,24); write(’ Major 
gotoxy (38,24); 
write(’ Review Criteria ‘); 
end; 


if alternative = ‘A’ then 
begin 
gotoky(16.,24); writet’ Input 
gotoxyYy(24,24)3 writet’ Finai 


end 
else 
heqgin 
GEEony (eet: 3 writat’® Plajor 
gotoxyY (42,24)3 write’ Final 
end; 
if alternative = ‘C’ then 
begin 


getoxY(9,24); 
wreitet(’ Sub Criteria ‘°}:3 


gotaoxy (49,24); writet’ Holding 


end; 


1f alternative = ‘C’ then 
begin 
Gaugny (7724. . 
wWritet” Sup EGriteria ~)s 
gotoxy (38,24) 5 
write(’ Review Criteria ‘); 
end; 


1f alternative = ‘C’ then 
begin 
gGotoxy(9,24); 
write(’ Sub Criteria ‘); 
gotoxy (42,24); writel’ Final 
end; 


lt alternative = ‘tC’ then 
becin 
gotonyY (235,24); 


rs 


-. 


as 


tom 
‘a5 ‘as 


a! 
‘as ‘4a 


ys 


Bes 


write(’ Tertiary Criteria ‘); 
gotoXyY (49,24); writet’ Holding ‘); 
ENG s 


Goes if aiternative = ‘CC’ then 
begin 
gotoxy (22,24) ; 
wreite(’ Tertiary Criteria °); 
BOEzOK Ytao, 248 
write(’ Review Criteria ‘); 
end; 


Ae if alternative = ‘°C’ then 
begin 
gotoxy (25,24); 
write(’ Tertiary Criteria ‘); 
gotoxyY (42,24); write(’ Final ‘*)s 


end; 
a0 ee tf alternative = ‘A’ then 
begin 
textbackground (bliue); 
Gotoady (2,24); ciresoi; 
gotoxy (31,24); 
textbackground (red): 
wreicei’ Input Compieted ‘); 
end 
elise 
begin 
gotoxyY (42,24); write’ Final ‘); 
GotodyY (38,24) 5 
writei’ Compieted 2 
ends 
2enas (Case Statement} 
textbackground {blue}: 
pti 2= 23) pt2 s= 26g) oes 2-3 pid = 21; 


window(pti ,pte,pts,pt4): 


end: tOdometer: 


SSR S REAR EER ERLE EEE RR EERE RRR RR EEE EREKES EAE RAR REESE! 


FILE 
WRITTEN BY 
PURPOSE 


CONTENTS 


s 
z 


Peeiex?.Lin os } 

Mixe Neeley % Bob Wooidridge, May,&é 
Procedure lidrary for TOUCHSTONE ‘COGCRr 
Criteria Filter Frogram) written 4s 4a part 
Of a thesis for a Master sf Science in 
Computer Systems Management, Naval 
Postgraduate Schcoi, Montsrev, Caiifornia 
ENGGOE, DECCRDE, iNTROSCREEN 

CHANGESTATUS, CHANGECODE 


’ 


C PEPER ME RE ER REE KE EERE RRR ERR EE RRR ER ERRERHREREX) 


PROCEDURE 
WRITTEN BY 
Pier OSE 
FARAMETERS 
FATERNAL 
MEEDS 


ou 


ue 


ENCODE 
Mike Neeley & Bob Wooldridge, May.3é 
Encodes user name and user ID for Ff:2 
tmeuGcs AMSLGREEe stmayli..-83 af char; 


rone 


CEES EHRE KER BRE RH EERE SEES ERR ASR HEE SEE ER EERE AER AE SEE EHS ERS) 


funmcticn ENCODE (NAMECODE : CODEARRAY) : CODEARRAY:; 


Var 
ne eOUDE 
i 
begin 
for ~f := i 


af NAMED 


NAMECODELII := = 
if not (NAMECODELT 
NAMECOD A 


<o i2 co becin {change input to ail 


caps and; 


Ee eee eee ct beeen eee a oes fdetet2 non- 


letters: 
=arecor Go (4emMelLOCDRE Ts) — Bes) ; 
CR a a ee een 


Ld 
it 
A 
al 
7 
a 
a 
OQ. 
T: 
rr 
) 
t) 
| 
mM 
rt 
id 
t 
0 
™.J 
+: 
bi 


{ HE BE EEE ERE ERE RRR REE RRR ARE EEE EEE) 


PROCEDURE 
WRITTEN BY 
ler 
PORBMETORS 
cA TERNAL 


NEEDS 


aa 


DECabeE 

Mike Neeley x Bob Wooldridge, May,3é 
Decode#s wser name and user ID from 
Wee eee se arrayil..~Si of cia 


74 
mes 


“$y 
pm 


"Fi 


j=} 
= 


*h 


= 


none 


{ MARA KREBS REESE ERR AM ERE ERE EEE KEE EERE SESH RE HSH EH) 


LEg 


wt 


function DECODE(NAMECODE : CODEARRAY) : CODEARRAY; 


Var 
TEMPCOBE : arrayli..i2d ofr char; 
L 2: integer: 
begin 
{decode ail charters from codes 
for I 3:= i ta if do 
TEMPCOBDEL II := chrit (NAMECODELIG) — <Gearisd7: 


DECODE := TEMPCODE; 
ends: {procedure DECODES 


C REKKERERER ERR EERE EK RRR KEERRKEERERKREERMKRREMHEREARRERERREEE ) 
PROCEDURE : INTROSCREEN 
WRITTEN BY Mike Neeley & Sob Wooldridge, Mav.84 
PuRP coe Draws the box for the various introductory 
ang menu screens 
FORAMETERS =: none 
EXTERNAL 
NEEOS Sa@blmeludel fale Illeana 
£ ERA RES RAKRRKRAER EERE RARE REA ER KREMER RHEE SKEER MRSA ESHREES 


srocedures INTROSCREENSs 


egqin itprocedure INTROSCRKEENS 
textbackground (blue); textcolor iwhite); 
window/1,1,8@0,25); 
Cilgser : 
BAST CAG be ones ee 
qGcan y (50m: 
textbackoroundtired?: textcoloriyeliow) 
write t° TOUCHSTONE es 
textbackgroundibiue)ds textcoior (white) 
window 1S ..ogs5. 24s: 


ic ie vim Se Ota 


aa 


‘a 


td 
Ci] 


rt 


. StS 2:= 733064 ee 


a. 


ari 


(HELENE EAE EKERAE ERR KES HERE EE KER EERE ERRAMRRKKHAHRERRHES ) 


PROCEDURE : CHANGESTATUS 
WRITTEN BY : Mike Neeley & Bob Wooldridce,. May,8é 
PuRPeSe >: Chance the status af invocators/committees 


members ana add/deiaste persons; change 
meropiem invecator rpassword 
PARAMETERS : none 
EXTERNAL 
BEES s none 
CHERKKEEEE REE RRKEAKKER ERK KEKE EEK KRRREKRKRKRERRARRHEKREERHSHREHHES) 


1414 


Procedure CHANGESTATUS; 


Yar 
NAME _OK 


, IGCHECK, 


CONTINUE, CHANGE - 
X, COUNTER, K, L, 
LASTLINE 


CH 


WORKF ILE 
NMAMESTRING 
CHECKF ILE 


MASTER 


CHECK NAME 
CHECK CODE 
CODEMASTER 
CODENAME 
CODEWORD 
SAVELINE 
femee 1NE 


procedure 


HELPREYS$ 


<puts up KRelpscreen if 


Yar 
x, ¥ 


cegin 


read tkbd,CH) ; 
case CH of 


Bbcoiesan; 


integer; 
char; 

text; 
string(3d; 
stringli4i; 
stringli7i]; 
Gig ay Cle sod 
array (€1i..84] 
array(1..8354 
array(fli..835] 
arrayli..a5J] 
arrayfli..85] 
CODEARRAY ; 


of 
of 
of 
of 
of 
of 


X ?= wherex; Y := whereyY; 
Semot. box Gle.o. HELPS! ZE WELFPER)? ; 


WinGGWwie tl, pt. ,ot5o,pt4? 3 
textihackarounc (61lue? ; 


#59 3: beqin LO ee: 
textcolor twnhite): 
Gotoxyta,¥)3 
end; foe li + 
end; cE; 
enc; tproecedure cos 


precedure GETANS; 
{solicits an answer from the user; 


beqin 
repeat 
PSade.oa.,CH) s 
if CH = #27 then 


MeELPEEY : 
Peete te als. - SS CIE 
Bnes> Che (omattH)—s2) 3 


inea. 
ends: 


Seely fA 2 
teprocedure GETAN 


7 
mt 
oo 


qt isos 


14% 


char; 
char; 
char; 
string( 34; 
stringlS81; 
stringli2zd; 


procedure GETANSWER (A,B,C,D : char); 
{solicits an answer from the users 


pegin 
repeat 
read (kbd,CH) ; 
if CH = #27 then 
HELE RS 
if CH im (A,B a eiaea 
CH == chr (ordtin) -s2n, 
umtii CH im f£G,bas 
write (CH); delay (S@@) ; 
end; {procedure GETANSWER: 


procedure CLEARLINES; 
{clears lines 14 ® is: 


heqin 
gotoxy (1,24); clireol; 
gotoxy (1 ,lsv: eltrmecaols 

end: {procedure CLEARLINES: 


begin {procedure CHANGESTATUSS 
{put information on screen} 
INTROSCREENS; 
if SELECTED = i then begin 
GCSeoxK ys Ss. =) 4 
write ¢°INVOCATOR MASTER CODEWORD CHANGE‘); 
CONTINUE := true; 
end if SELECTED = 33 
else begin 
gotoxy (14,2); 
write ('INVOCATCR MASTER STATUS CHANGE‘); 
gotoxvi4s,4)s 
write ('°This section of the program wili allow you tc 


add,‘): 
qotoxy<’4,5) 3 
write ‘{‘delete, or change the status of anv person you 


Wish. ‘)s 

gqotoxy(4,7)3 

write (°Flease enter the initials of the individual 
you want’); 

gotoxy’4,8); 

wreite (‘to add/detate/change <OR> oress enter to 
Tetiume eee 

gotoxy (21,18); 

write ('INITIALS: x«#*'); 

KR 2:= 32; COUNTER := @: CONTINUE := faise; 


fget initials of individual? 
repeat 
repeat 
gotoxy (X,1@); 
read (xbd,CH) ; 
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if CH = #27 then 
HELPKEY: 


Moet iri win, CRS. aes 2 ig ee. Se’ Is 
Beit imo ss) fe Laer 
ito — aot (Org (Ch — S27 2 
wret ce (CHdes 
A -S= % chi 
GOUNTER s— COUNTER + 1; 
Towa ae f A. Saar chen 
LONTINGE := true; 


i¢ CONTINUE then begin 
CHECK NAMNECCOUNTERIJ := CH; 
if CH = #13 then begin 
for =_ := COUNTER to 3 do 
CHECENAMECTLI := ° ° 
COUNTER := 3; 
end; L1f CH=#13; 
ands £if continues 
neil tCRR= chrtisee or @60UNTER® = 3); 


fcheck initiais for reserved: 
NAMESTRING 2: = CHECKENAMESs 
if {COUNTER = 2) and ({NANMESTRING = ‘°228°) or 
(NAMESTRING = ee ar 
{(NAMESTRING “ZZW') or (NAMESTRING = 
(NAMESTRING = ZEy" > or ({(NAMESTRING = 
Seain 
CONTINUE i= faise; 
sound (44400) ;delay (S@9) s;ncsound; 
gotoxyi14,14); 
Wadi @ SOnmY . .iteoe NI PIALS RESERVED )s 
delay (2502) ; 
end: tif COUNTER=37 
ana; (el se/ite SELECTED=1} 


: or 
")) then 


II 


Phim 
Nd ha 
Pd oe 


Cput ail initials on rile intas 
tan array: 
t+ CONTINUE then begin 


Reet. te eee tomcat (Fr SMS UR Ie. : TWA. 2 ZV}: 

{reac file: 

assiqn (WORKFILE.CHECKFILE) ; {Get file of codes} 
{${f-} 

reset (WORKFILE) ; 

L$1+3 


if [Gresuit = 8 tren begin 
LSECELE t= true; 
LAS Tinie := 1; 
{Read file and assign parts of 
file to code informaticn: 
while (nmct eof (WORKFILE)) and (LASTLINE < 17@) do 
5egin 
react WORK PILe .SeVELINELLAGTL ENE] ; 
TEMPE <= DECO DE (SAVELINELLASTLINE?); 
POUR OrERELASTLINes s-= copy (TEMPLINE,1,1)3 
COS Meme LLGS LINE? == cop vee MemPiemHeE ,=.5);5 


CODEWORDELASTLINE] := copy (TEMPLINE,S.8); 
LASTLINE := LASTLINE + i; 


ends {while not eors 
a s= LASTLINE — i; 
and if [@resuite 
2ise _ Begin 
cirser; 
Geyser 
merit ON DISK 


2 a PILE: “TOCCHIS2Zy  FiSoaaes 
~riLegn it Ve 
ae ae 14): 
write (‘PLEASE REPLACE NECESARY FILE BEFORE 
coe 
sound (549); delay (398) snosounv;delay (3@00); 
IOCCHECEKE :s= false; 
end; telse:; 
close (WNORKF ILE ; 


{it toucnh.2zzv iS Omed1sk, conts 
then begin 
PECTED = 2 then begin 


fcheck for namestring in files 
While notrtiLeLASTLINE) and not NAME _OF do Begin 

if CODENAMNEDLG = NAMESTRING then 

MAME OK := true 
else 

NAME OF s= false; 

{check user’s initials far match; 
Lo Se Sin tee 


ends fwniie not LSLASTLIMNES ; 


1S tom Ste oe 


it NAME GFK 
Ls ae 
i COBENASTERELI = “M* then 
MOSTER 2:= “PROBLEM ITAVCCATER 
2lsea 


MASTER := “COMMITTEE HEMBER ; 
ee eee 
write 7", CODENAMELLS, °" 3S CISlTED Aa aa 
eat 


reneat 
gotoxy (4,1i4)3 
wreite (€°RBo you which ta (Cinange that status 


or aes 
qetSs22 


-5 
write oe person from the files? Jeeta 
gaotoxy age 
Be ee i ? ¢ 


® i 4 
+o celete2 memoer.. 3 


q@otoxy (4,14); 
write ¢°"' ,CODENAMEITLI,’°"” is about toa be 
deleted fram ‘); 7 
write (‘the files. Da you ‘);3 
gotexy (4,15); 
awrite (C’wish toa continue? ys 
gotoxy (24,15); 
Se UMMNONE Re Vis Tr , Y «= N°) 5 
and; fit CH="D’'? 
Une intent: Coe oy ear acos 5 
Cif choice is to delete member... 
if CH in C’Y’,#13] then begin 
gotoxy (1,12); clreal;: 
CLEARLINESs 
for K := L to (LASTLINE —- i)do 
SAVELINELRKI == SAVELINECK+19; 
Ro tloNe s— Enosiewve — 1°. 
gotoxy (14,14); 
writer ¢° ”*” ,C@DENAMELLI, " NG LONGER HAS ACCESS 
Toss? § 
write (¢* TQUCHSTONE. ‘); 
CHANGE := true; 
EHC vit nels 
{if choice is not to delete member..+s; 
eise begin 
CLEARLINES: 
gotaxy (4,14); 
write (‘DO YOU WANT "’ ,CODENAMELILI,°"” TO BE A 
PROBLEM’); 
write ¢° INVOCATOR OR ‘'); 
Gotoxy (4,135); 
write (°A COMMITTEE MEMBER? (F/C) *#' 
GQeGnN (51515) $ 


al 
aa 


GETANSWER ('p',’c’.’ 'C'); 
if ({CH='P') and ‘CODEMASTERILI = 'W')) or 
({CH='C’) and (CODEMASTERECLI = ‘M‘)) then 


CHANGE := true; 
1f CH = ‘F’ then begin 
Cevpenas (ents =e Tie, 
if (CODEWORDCLI = CODEWORELiqJ) then 
CODEWORDCILI := ‘#ReRHHHE'S 


end 
elise 
CODEMASTERCLI := ‘W's; 
at SSQQ0EMeaslexilLi = SM. tnen 
MASTER 3:= “PROBLEM INVOCATOR’ 
else 


MASTER := ‘COMMITTEE MEMBER’; 
SGEoxy 1, 12)5. Clrecil > 


CLEARLINESs: 

Gourexy C12, 145 

write Sal ; ke a, la IS NOW 4 
eo. ae 2S 


TesrPeIne <= 
concat (CODEMASTERECL) ,CODENAMEITL I ,COBDEWORDCL I> ; 
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SAVELINELL]G := ENCODE (TEMPLINE) ; 
ends 
end {if NAME OKs 
{if nmamestring is not in file..; 
else begin 
gotoxy (180,14); 
write (‘'"’ ,NAMESTRING,’" IS NOT ON FILE AT THE 
PRESENT TIME 35 
qotouy (205147. 
write (‘DO YOU WISH TO ADD "’ ,NAMESTRING,''? 
%")s 
gotoxy (38,15); 
GETANSWER ('y’,'’nm’, VY’, °N')5 
if CH = ‘Y° then begin 
CLEARLINES; 
gotaxy (2,14); 
write ('"’ ,MAMESTRING, '" NOW HAS ACCESS TO 
TQUCHSTONE. DO '); 
write (’° YOU WANT "’ ,NAMESTRING,’'” TO")s 
getexy “2, la): 
write(’BE A PROBLEM INVOCATOR OR COMMITTEE 
MEMBER? ) 
write’ (PE) We os 
HOLOxY pes la) 
SETANSWER (0 4, © 3 fF. © oe 
LASTLINE s= LASTLINE + 1; 
i=3:= LASTLINES 


CODENGHECLI 3:= NAMESTRINGS; 

CODEWORDCLI := as 

if CH = ‘FP’ then 
CODEMASTERELI := ‘M’ 


else 
CODEMASTERELG : 
TESPCING, == 
ctoncat (CODEMASTERCILI,CODENAMECLI ,CODEWORDEIL 3); 
SAVELINECLJ := ENCODE CTEMPLINE) ; 
CHANGE := true; 
end; Cif CH = ‘¥"s 
end: teise/if NAME OF? 
f<write new file to disk? 
end 1 SELECTED = 2} 
else begin 
gotoxy (4,4); 
write ('This section of the program will allow vou 
~tO change’); 
gotoxyi4d,G)s 
write (‘the Problem Invecator Password. Don’‘t 
forget that’); 
gotaxy(4,4)3 
write (‘you will need to inform all other problem 
invocators’)s; 
Gotox 714.7) = 
write ('’or the new Password if you want them to 
Nave access’); 
gotoxy(4,8)s; 


"WS 
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a ¢ 


Wietces< co 1Ooucnhstone. 7: 

gotoxy (4,14); 

Woe] ( For this version sft PSaUCHSTONB, that 
rassword iss‘); 


e@oteaxuy 419 5 tee 

Write ('##+# Hea DS 
Gecenmy (25,11) setextepiarivei iow)s 
temtbackgroundiresd)s 


write ¢° " CODEWORDEI 13 23 

wer eoloncani toon eee CUn cnet 12 Yee 

@Ga@mauy (4,12) $ 

write (‘Please input the new Fropiem invocator 
password below: ‘3; 

gotoxy (25,12); 

Write 6° RHRHKERN') 

gotoxy(16,14):; 

writed’ (Maximum of 3 letters) '); 


A := 293° COUNTER s=i; 
get user’s coceword; 
repeat funtil COUNTER :ads 
GOcory va ,ic?s 
SETANS: 
Bees loDEELCGUNTERG 2° CHs 
1¢# moOnrtCHECRECODELiI in C' °,#1iSd) then begin 
A = KO te 
Wied tees Vii) 
if CH = #12 then degin 
for t $= SRUNTSRe eco & dG 


SHE CR PEeVpetey s= ; 
COUNTER := &@;3 
end; {if CH=#135 
CCUNTER : ESB ot 
ends: tif not checkcode;s 
Uncii COUNTER =; 8 


: 
Cee Gneb.) 2 CHECKCODE: 


{if Propiem Invocator sassword is tne same as tire 
Committees Member password. clear the Commitiee 
Memoper catswordcs 

is a 


while not (LALASTLINE) doa nega 
if iCODEWCRDCLI = LODEWORDCiA) and 
(CODEMASTERCLI = ‘M’) then 
CSCDEWORDCLI := ‘448448 HHH~s 
aa a 2S 


a 
eng; twine ie Oe 2 ALAS tees 


Sacexy. Vo, 1) 5 

write (‘NEW PROBLEM INVOSCATOR PASSWORD Is: 
(TC @BDEWGRDC II): 

4or Ff := 1 to LASTLINE do begin 


ies a> = 
ee SP ahaS Vane © See hens 2 sf OUDEWOERDLK 2) 3 
Sevel WELK] ¢:<= ENCORE TEMPLINE) ; 

ara: far Js 


~s 
fa 
“J 


CHANGE := trues 
end; telse/it SEL_LECTED—=2; 
if CHANGE then begin 
assign (NWORKFILE,CHECKFILE) ; 
rewrite (WORKFILE) ; 
for EF z= 1 to LASTLINE do begin 
wreiteint(WORKFILE,SAVELINECE I); 
end; if Or eae 
ciose (WORKFILE: ; 
ends 124 CHANGE? 
Geliay (2486) ; 
ends; {if TOCHECK> 
end; tif CONTINUES 
ELS. 
ends fprocedure CHANGESTATUSs 


i4¢q 


eee «lL TBs 


CRERRKERKRSKE RATES KKAHRE REE EHR AKREKRK AKER RKRRSEKRERHRKHE RHE R ARASH RARE 


* 


ee KK eK KR KK KK K KOK 


PROCEDURE 

SUPPORTS PROGRAM 
LOCAL VARIABLES 
SLUBAL VARIABLES 


ARRAYS USED 
FILES ACCESSED 
EXTERNAL CALLS 
a. enna LLTERS 
CALLED FROM 
PURPOSE 


REVIEW! 
CTOUCH. FAS 

NONE 

NAMES, LIMMIT, CH, COUNT. Y, 
TRACK1, NUM, SECNUM., THRNAUM 
CRITARRAY 

NONE 

NONE 

NONE 


LISTS ALTERNATIVES/CRITERIA 
PREVIOUSLY INPUT, SO THAT THE 


USER MAY VIEW AND OR CHANGE THE 


RECORDS, DEFENDING UPON WHICH 
STAGE HE 15 IN. 


RKEEEEEBKRHKKRAELRARKRERERAKRSERERRRKREKRBEKRRKRERHERHERERKRRREBKHE RRR ERK REE 


procedure Reviewlivar Names =: CritaArrays; 


Limmit 


GeEoxy i240): 


repeat 


: Inteaqer); 


case NamestTrackili.flagi of 


1..140 : 


begin 


and 
then 


{inside case statement flaqis 
if (NamesCTrackli.fiag2 = 9) 
(NamesCTrackiid.Flags = @) 


begin Case If Statements 


num := namesCtrackijd.flagl; 


Gotoxy(1,Y): Giteea ls 

Weithbe (Num, °. oe 

secnum := 1; ¥ 3s= Su 
end: (Case [Ff Statement 


case Names(Trackil.flagZ of 


tae LY 
L1nSlide case statement +rlages 


begin 


+ 


if (Names(Trackil].flag2 = @) 


149 


oe 
a 
4 


rsd 
,i) gy 


then 


Bs 


# 
# 
* 
* 
& 
% 
* 
+ 
* 
or 
* 
* 
* 
% 
) 


begin tCase I[f Statement; 
gotoxyt1,¥is; clreoal; 
gcias y (Goa Je: 
Write (SecNum, °. ces 
SecNum 3:= Succ (SecNum) 3 
ThirNum := 1;3 Y s= succ(tyY); 
end; t(Case If Statement; 


case Names(Trackij.filags of 
1..-14@ : begin ‘tCase If Statement: 
gotoxy(i,Y); cireol; 
gotoxy(s,Y); 
Write (ThrNum, °). mone 
ThrNum s= ThrNum + 1; 
Y s= succtyY); 
end; {Case If Statement; 
end; (Case Statement for flagas 
end; ctinside case statement fiag2s 


ends {Case Statement for fiag2s 


Write (Names(Trackijd.CritName, ’: a 
NamesiTrackid.CritbdDert :; 


ends {4inside case statement fiagls 
end; tCase Statement for flagis 
count := count + tI; 
Tracki 3:= Tracki + t:s 
until @Tracki = Limmit) or (count = 143; 


end; tReEVieswis 


procecurese tbetthekevs 


{var Inputstrina: 


G: tnteger); 


Str 


ingarray; 


i SERRA R SERRE RR ARH RARE EERE ERASER AERA RAHRRERRARHARAESEHRAHAAA RHA 


See OC CDURE = Selita oe tS & 
ese ort S PREEHAM =: BT OGULAHLEASes CH.FAS * 
* LOCAL VARIABLES >: HORIZONTAL, VERTICAL, VERTZ ® 
*® GLOBAL VEARIASLES =: Aeon e oO eomecOUNTED, HELPSIZE. 0 
= Pee eaememeteouNtTeR CHATOR, FILEDRIVE,= 
# PROBNGME. NAMESTRING, Fi. PTS, te 
* Pio Pee ENVOCATGR, Coie, TRACKI. = 
% Surety Limit, YY; 2, G; + 
* INPUTSTRING * 
* ARRAYS USED : NONE * 
= SS A ENS StSyau0), : NONE * 
*% EXTERNAL CALLS : SCROLLEOX, CHATRBOX, CHATROCHECE, * 
* REVIEW! es 
% EXTERNAL FILTERS 3: + 
Meio.) FR : ae 
*%® FPURPOSE - THIS FROCEDURE READS EACH * 
© CoS emeee REPLACING ALL +* 
# READLNS THIS ALLOWS THE FUNCTION = 
* KEYS TO BE ACCESSED AT ANY TIME E 
+ DURING THE FROGSRAM. + 


CEES EREEK EERE E REE REBELS HER MRAR RE REKE REESE RR ERR ERR ERB EH 


Yar 
PemeeeNt AL. VERTICAL, VERTZ =: Peron 
begin {Get Tnekeys: 
StQErrag == Falses 
Horazontal i= wherexs; Verticai i= wherey; 
X 3:= Herizontai: 
Tepeat 
textbackagrouns tYeiicw); 
IGtes (A ASavertiicalys Wine Get “33 
(22 Seon? s 


eihmtepeii2re the arrays 


case cnt of 


~~ 
Cn 
fond 


</ e begin 
fEscanpe sequence for function keys? 


read(kbd.,cnt:s; 
case cht of 


Hoo? pegin Cele 
Serolisgex:<1l2,a.,HELPSiIZe Hecee ss: 
textbackgqround (Yeiltoaow); 

QOtoAyY (Horizontai.,Vertical;; 
for counter := 1 to counted do 
write tinputstringlcounter )); 
end; Vee ot 


#60 =: if ChatQk and 
(Invocator <2 ‘M’) then 

begin 1. Se 

ChatRBox (Filebrive,?ProtName, 

NameString:s; 

chatrcneck; 


windowitpti pts, pts,ot4) ; 
textbackorouncd (Yellow) ; 
gotoxkyY (Horizontal ,Verticai:; 


for counter := 
write tinputsetr 
ends Ge: 


Ais 
i to counted do 
nq Ceocunteri}: 


pul 


#651 if WeedDef and 
{Invoecator <> ‘M’') then 
begin ia eee) 
ScroaliBbox tia, i ieee > 
windowtoti ,pt2,pts,pc4) 


‘ua 


textbackgrounad (Yellow); 
QOtoryY (Horizontal ,Vertical;:; 
4 


far counter 3:= 1 £9 counted do 
writetinputstring Ccounter dd: s; 


Tt 


end; eee 

#58 3: bSegin . Fig 3 
StopPreg := True: 

Che s=> #12. 

ends 4 FiO 3+ 

7 i : it scroiiit then 
pegqin fhome>s 


tex tibpackground (biue 
Qotoxy (2,6) : Y := 
track! : = m- 
reviewltinames,limmit)s; 
tf ace = 205 


¢ 7 


GOCDxAY (2p VY 2=66- 


‘SG ‘aa 


} 
& 


t+ 
Ch 
b 


1 ee) te 
id then 


if (wherey 
(track! 
beqin 
sound (34@@) ; 
delay’(10@); 
nosound; 
end; 

ends; thomes 


I 


72s s tf Secrollie then 
begin {Cup arrows 
textbackground (blue); 

if (wherey > 6) then 
begin 

Yau >) y¥ > o1;3 

tracki := tracki — I; 
Bowery (a. 4) = 


end; 

if (wherey = 6) and 
(tracki > 1) then 
begin 

Mm. Gract lie 1a tren 
tracki := tracki —- 13 
else 


tracki := tracki - Is; 
reviewl (Names,iimmict: 3 


qotoxy (2,5); ons 

if trackl > 13 then 
tracki := tracki - 13 
else 

trackl := 1; 

end; 


if (wheray = 5) and 
Ctracki = 1) then 
begin 

sound (3006) ; 

Gelay (id@) ; 
nosound: 

ends 


ends {up arrows 


af | OS it seroeeLtit chen 
begin {page ups 
textbackqroundiblue); 
Getexny (2,675 Ye s= G6; 

if trackl > 13 then 
tracki 2= tracki - 17 
elise 
tracki <= 
If ‘ticack 1 
trackl := 


‘as 


1 then 


frets ieal — 


‘ae 


review! (names,limmit) ; 
If tracki - 13 then 


tracki 


elise 


tracki 
it trac 
trackli 
gotoxy {2,64 
if (wherey 
f{tracki 


begin 


1 


s= tracki -— 17 


at tnen 


Sout res BS fonste 


; Yo3si= &; 


sound (3600) ; 
delay(1W@); 


nosound ; 


ends 
end; 
#/9F 3 
#80: 


6) or 
= 13 then 
{page ups 


if scroliit then 


begin fends 
agotoxy (2,64); e 


textbackground (Diue 


tracki := limmit - 
reviewl (names,limmi 
Ves= le: 

EraaGkE s= if 
HOcCesY Vow 
if iwherey = 


Ctracki = Limmit?) 


then 
begin 
sound (s@4) s 
delay (iia; 
NIOSOUNGES 
ends 
ends tends 


if scroilit then 


begin {down arrows 


textbackground iblue)d ; 
if ‘wnerey < 18) ane 


fwherey - Gi) and 
(tracki < ilimmit) 
then 
begin 
ys y ols 
tracki s:= 


Pipack i. ei. 
Goteny t2.y) 3 
end; 


- @ 
ie 
a 
9 


#3 1 


tr 


Ci 


cn 


if {wnerey = 19) anc 
(trackl < Limmit: 


then 
nNegqin 
ee or ack lee 1S. 
then 

tracki := 
mae iw oe Le 

2ise : 
Specks 2s 

Gorey 2=.o7 5 

Y := 6: 

review! (names, 


limmit); 
Y := wherey; 
qotoxyl2.y)s3 


if twrerey 
{tracki = 
then 
beqin 
sound (SHG) : 
Gelay (14M) ; 
Nrosounas 
end: 


oe 

a 
+h 
a 
Ch 


> 


Bnd: {down arrows 


if scroiiit then 
beqin (page down: 


textbackground (ine: 3 


Geegxnyi 2 ,o) = = vee 
if tracki 13 then 
=racKkl 2 
fracki+ if: 


it ectackKki > Limmit-13 
then 
Beate) et Pt mmrc~- i= 


fae 
‘wa 


if (wnerey La? 2Gi 

(tracki = Limmit:? 

then 

segqin 
sounG (SAB) s 
Geiay tiga ; 
mosounds 

ends 


end: ifage downs 


#75, #83 =: af counted + $ then 


begin 
{delete & left arrows; 


counted := 

counted - i; 
2= wheres 

= where2y 

Sci Aes — 2 
imputstringyg 
Ccounteactil := #3523 
write’ "33 
FORGERY (A-ia2s 


Pp oe 


p.} #0 
thee! 
ae 


end 
eise 

begin 
gotoxy ( (horizontai+ 
counted) ,.verticaliis 
sound (S808) ; 
cdeliayv (10G3 ; 
nosound; 


end: {case Stavcemeancs 


end; (Escape sequence for function kevss 


#32.2.H#L Sm ¢ 2f counted < G tnen 
Degin inormai cnaracterss 
counted ¢= eeunted’ + we 


(KERH AAR KALA RK HKHELERRRER ERE 
FORCES EVERY CHARACTER INTO 
CAPS : 

LEER EMR KERR EE RRERHRE SH) 


i? cht inl a= Gee eon 
cht *=S2@ar (ore (en. S22, 


InputstringfCcounted] := cht 


write tcht}s; 


ends inormal characters; 
#5 : a1f (counted + @) then 
begin backspace: 
counted := counted —- 1; 


X := wherex; 

Z := whereY; 
GotoxyY(X-1,2Z)3 
inputstring 
Ccountedtij := #32; 
write(’ °)3; 
BEEOAY A> i a2)S 


end ipackspace; 
else 

begin 
qotoxy (tharizontal+ 
counted) ,vertical?)s; 
sound (S@9@> ; 
ceiayv (140); 
nosound; 

end; 


end; <case statement} 


1# (counted = G) and (cht <> #125) then 
fend of strings 


begin 


gotoxy ((horizontal+counted) ,vertical); 
sound (3S2@G@) ; Gdelayti@@)3 nosound; 


end: 
until (cht = #13) 35 


1f counted «= G&G then 
Leh 
X := Horizontal + counted; 
repeat 
textbackground (blue) ; 
gotoxY(%z,Vertical)s; write’ ‘); 
N= 2 Ssuee Cx) s 
Bema . = Herizonta*.+ G6; 
end: 


Deg 


pt 
a) 
“J 


a 
2 


textcolor twhite) ; 
textbackground (blue); 


end; (Get Tnekeys: 


procedure Sortem(Var probl, 


Var 
TEMPorot : proprec; 


beqin {Sortems 


TempPreb := probit; 
proop2 := Tempprob; 


end: {sor tems 


procedure probSortitivar Frobs 
Limmit 


prob] : probRec); 


probaAarray; 
integer): 


( KHER ERARKREKRAEEESAKERKRKKESKHRERKRAE AR HEKRKERHESZKRHKRKERKREARKRRARAAAHAEKGE 


7 PReGerire s PROBSORT 

*€ SUPPORTS PROGRAr sewed. HAS 

*# LOCAL VARIABLES >: NOEXCHANGES, FURST 
* GLOBAL VARTABLES : PROBS, LIMMIT 

* ARRAYS USED s PROBARRAY 

* Illes allesser : NONE 

% EXTERNAL CALLS > SORTEM 

% EXTERNAL FILTERS : NONE 

*® CALLED FROM : 

eS Fear ase : EXECUTES AN ALPHA 
* IN PRORARRAY USING 
* MAME. 


KEE ERE RK REE K EERE KER ERASER SEEKER RR KR RHEE REE REE KRRKERRHEX 


Var 
NOEXCHANGES 
FURST, PASS, LIMID 


begin (proabSort>s 
Limid = limmit —- !;3 
repeat 


Noexchanges := True 


for Furst == 1 tao 1 


RCOLEAN: 
INTEGER; 


Pass i= 


put 
aa 


imid -—- Pass do 


% 


SG 
+ 


o 
i 


F 
wy 


ASS. LIMID 


T ON RECORDS 
eam et 


i iN 


fine ime ff 


wee eR eK OR OR OK 


eat! 


- 


VS APeoaesirursti~.croblem 
Pma@bSirithrsu t 1d. ptool om 
beqin tEx changes 
Ser tienir:obsleursti. 
NMCeENChHaAanGes := Faise; 
ends {Exchanges 
Pass := Fass + i: 
until Noexchanges; 
end; tprobSorts 


procedure ReWriterItivar Probs : 
Limmit : 


then 


ProosfFurst 


probArray; 
Integer); 


eet) 


(ERR EER HERRERA E RE RE EERE LER REAR ERR KRRKKRE RSE RE REKR RARE A ER EK KEH 
oe PRECEDURE : REWRITEIT * 
Meese ORTS PROGRAM : BPG. -eS = 
*# LOCAL VARIABLES : NONE # 
€ GLOBAL VARIABLES : [eats KeogSse City. KFRORNGSHeE, = 
a ALTERNATIVE, CHANGEREC + 
* ARRAYS USED ~ PROBSREAY 
We ee LE SSD : Ae Oo eee ee PRES. PA # 
oe aoe CALLS : NONE £ 
[exe emmel. PLLIeERS = NONE < 
13 =tega eae : & 
oe Poe OSE : REWRITES ACTIVEPROBLEMFILE % 
ee (PRORBS.TAT) tag 


SESREEREEEERAEKSERAEER SHAS HAR ESHER KRHEERASHARARARSERKAHARA RSE! 


Degqin 


rewrite tactiveproeniemtfiis): 
4 


aac ilees— Jase 
TSoPat 
if (changerec = ‘C’°) anc 
(probsttrackild.oroabiem = pr fo mee and 
{probsltracklij.choice = alternative) then 
crobpsCtrackii.checkcnange 3:= changerec;: 
it itchengerec = ‘NG anc 


(Gorobpsltrackil.probdlen = 


foroops(C(trackild.memder = 
{(props(C(trackli.choice = 
probpsitrackid.checkchang 
Writetactivepropieamtilea,rr 
traczi + 


Gi 


poe 


amit = limit Go 


"As 


Ui 
O 


a 
= 


oprobnamne) 


nNamestring) 
iat a ee =) 


2= changerec; 


io me se te 7) 


and 


ang 
then. 


a 
q 


closetactivepropliemfilie)s 


ends; (Rewriteits 


orocedure LoacdeEmuUps 


LPPEKREEEESRSE ASSES HSE REE RERREK RARER ERE HERE AR REAR SRR HCE 


7) PRESSES s LUOADEMUF * 
*% SUPPORTS PROGRAM : #8BTOQUCH.FAS * 
* LOCAL VARIABLES : NONE * 
%# GLOBAL VARTABLES : Z, TRACKI, PROBS, LIMMIT s 
* ARRAYS USED : PROBARRAY Bs 
%” FILES Able ssery s ACTIVEFROBLEMFILE = ‘'PROBS.TXT’ % 
%® EXTERNAL CALLS >: PROBSORT, REWRITELT Es 
* EXTERNAL PIETERS — 2 ene + 
=  CelLeee wanes : = 
femmes rsh >: LOADS THE ARRAY PROBARRAY, SORTS ¥#* 
# THE RECGRDS. PHEN FPUPSe Hees te as 
* Li aera aes # 
LALLA A AL ERARAAAEA RAR AE RARE A LALA AEARAAHRERARAARAAAKRHRAESS | 


Hegin tLoadEmUnas 


Reset (SctiverrobiemrFriies 3 
Z t= titilesizetactiveproblemfile)): 
close(activeprobiemtiie); 


begin tit the rilesize statements 


reset iactiveprobiemtile:s 


vyOtLia moet SOF (activecroblemriisac?) doa 
Deqin (While Statement; 


Read(activeprobiemriie,Frobs(€Trackii): 
Vrackl := Geach. 


ends iWhile Statements 
LIMmit se8 thee. 


closetactiveproblemfile) ; 


ends Lif che filesize statement: 


end; {LoacdEmUp?} 


procedure Loadthetfiles; 


CHEERS EE SEH RRR RK ER RRR R ERR EERE REE RR KERR RRR R KKK RRR R KR HRE 


ets URE = ~EG@ADTHEF TESS * 
* SUPPORTS PROGRAM : CTOUCH.FAS & 
*® LOCAL VARITASLE >: NONE # 
* GLOBAL VARIABLES : FILEDRIVE, ALTERNATIVE, & 
* NAMESTRING, PROBNAME * 
% ARRAYS USED > NONE * 
* FILES ACCESSED >: TEMPFLAGSET = ‘“FLAGSET.TXT' * 
* (LOCAL ONLY) * 
*% EXTERNAL CALLS : NONE * 
% EXTERNAL FILTERS : NONE + 
* CALLED FROM >: €TOUCH.FAS (MAIN FROGRAM + 
Ze CURPOSE [eee oe tae TEMP eLASsSel FICE Witla # 
* THE VARIABLES * 
* LISTED, SOQ THAT THE PROGRAM * 
% FLAGSET.FPAS WILL * 
* READ THE FILE AND KNOW WHAT TO DO. +* 


REPRE HKRALERKK AREER ERE KREE ECR KERERARER ERK KRKEARERR ESLER ERRER SH) 


Yar 
MeiGeemeoet = TEXT: 


begin f{loadthefiles; 
assignitempfilagset, ‘flaqset.txt‘); 
rewrite (tempflagset);: 


writelint(tempfiaqset,filedrive);: 
writeintitempflacqset ,aiternativel; 
writeln(temptiagset ,namestring? 3 
writein(tempfiaqgset ,propname) ; 


close (tempfilagset); 
end: {poacthefiles: 


161 


procedure Alternatethoice; 


i PERE EKRK SERRE EKER RHEE HEC HRR KERR ESERRKERRARAR ERASE RRR HH RHE 


* PROCEDURE : ALTERNATECHOCICE + 
* SUPPORTS PROGRAM  : BSTOUCH.PAS, CTOUBRS Eas * 
* LOCAL VARIABLES : CHM es 
*% GLOBAL VAESRIABLES : INFUTSTRING, ALTERNATIVE « 
* GRRAYS USED : NONE oe 
% PlbeeS AGCESSED : NONE * 
#® EATERNAL CALLS : Selo * 
% ‘EXTERNAL FILTERS see NONE a 
*%* CALLED FROM : * 
%* FURPOSE : ALLOWS THE USER TO SELECT WHETHER # 
* HE WILL BE DEVELOPING * 
& ALTERNATIVES GR CRITERIA. te 
LEK RRA RRA LR KK ARR ARR E HERE R KERR RRRRRARHREA HARARE RRR EEE) 


Yar 
chm = Chat; 


heGgin tAilternatecthoices 
CirSér. 
GOtony Vie, o.- 
writet’are you deveioping Alternatives or Criteria? 
A/C ")4 
Gotea.Y \oogeaue 


mepeat 
getthekeys (inputstring,1); 
alternative := inputstring;s 
chm := alternative; 
gotoxy (58,8) ; 
until chm invl Ay, € a: 
encs tAlternateChoice; 


ioe 


Serecedure | Mores 


AMES: 


CSR ESS SESE EMER RRR E EER RAR ERE EEE ERE ERARARHE KEKE EER 


a  EROCEDURE 

*% SUPPORTS PROGRAM 
# LOCAL VARIABLES 
* GLOBAL VARIABLES 
¢ 

* ARRAYS USED 
Zofia SOLOS Sey 

* 

*® EXTERNAL CALLS 

% EXTERNAL FILTERS 
*® CALLED FROM 

ewe oixte Joc 

* 

© 


GETFILENAMES 
STOUCH.PAS, 
AUTHORITY , 
HELPDRIVE, 
INVOCATOR, 
NONE 
TEMPFILE = ‘DRIVEFIL. TMP’ 
{LOCAL CGNLY) 

DECGDE 


27 ClCH «om 

TEMPNAME, CODENAME 
FILEDRIVE, NAMESTRING, 
AUTHORIZED 


— 
— 


READS THE TEMPFILE WRITTEN IN A 
PREVIOUS FROCEDURE AND RELOADS 
THE GLOBAL VARIABLES. 


ee KF KF RR RK EF A KH HR 


REE EEL E RARER EE EERE EERE ERA RARER RE HRER ENR HEEES ) 


var 
AUTHORITY 2 char; 
TEMPNAME, CODENAME fe Strengti2a2: 
fame ile See C Clots 
begin 
mee” (reir Les, DRIVEF Laie 
23 [— 
= feet) 
Leil+y 
if [Oresuit = @ then begin 
readin (TEMPFILE, CODENAME) ; 


TEMPNAME := 
RELPORIVE 3; 
PIEEDRIVE : 
AUTHORITY : 


NAMESTRING := 

INVOCATOR := c 
=iase Pei [te 
2? SUTRORITY = 


RMUTHORIZED : 


if Lnvocetor 
begin 

AUTHORITY : 

TEMPNAPIE := 


ne 
—= 


@ememmeielLPORiI Ve .FILEDRIYV 


INVOCATQOR) 
CODENAME :; 
rewri 


DER oe 
copy (TEMPNAME,1,i1) 
copy |TEMPNARMRE,2,1 
Soe ees eg ud 


moo 
eT 
aD 


(CODENAME) ; 


py ( TEMPNAME ,4, 
Pe imiMAic = 7 9 1 


’ 
’ 
5 
a) 
7 


} 
i) 


BSewlmGiniiy .WAMESTRING, 


= ENCODE (TEMPNAME) ; 
me 2 TErrP Iie? ; 


write t(TEMPFILE,CODENAME) ; 


close(tempfil 


ends 


ae 
es 
2. 
ae 
Ci 
au 
ree 
isd 
iT 
ty 


ja); 


ite 


and fif TOiresult: 
elise 

BUTHORIZED := tal 

ena 3 fprocecure GETF 


ENAMES? 


r 0 


(HRSA STERARAR EER ER HREKRHEE ER EERKKKHEREAREHAEAHRERRRARARHRERAEHRKRKKREHES 


Pre 7 + LLTESRAGL TB 
WRITTEN FY : Mike Neeiay & 
PURFGOSE : 


of a thesis for a Master 

Computer Systems Management, Navai 

KFostgqraduat® School, Monterey, 
CONTENTS : JIiTEBe sae tLlpex 


(i192 lines) 
Hoo Wooldridge, 


Procedure library tor TOUCHSTONE 
Criteria Filter Program} 


written as 2a 
of Science 1n 


Cali 


May.dé 


{COOP 
part 


7TOornia 


C HEHEHE KHER HEH HEHEHE KEE EKER ERE ER HKKER EKER KERR K EERE ERHERER HEH) 


PROCEDURE 
WRITTEN BY 


BASICEOX 
Mike Neeley & Bob Wooldridae, 


May ,86 


Based on a program created by Mark Hayes 


PURPOSE : 


2 integers (box 


bemmoMmeterkS =: Al,Y¥i,X2, %2 
coordinates) 

EXTORNAL 

NEEDS : mone 


Draws a box as specified by the input 
Variables 
corner 


LEERKEEHE KERR SE REE REE ERERRKKRAKR ERR KER SHE RHE RKKEASRRERHEHE) 


precesure HASICEHOXK (x1,¥:3 


Mit. - ln ceger s 


begin 
BeCi,li == xis BOC 
meee tl f= 125 


Been (som, 15 ,BC IM. 
wezateichr (281)? ; 
wor J i= (BeELM, 


oc 
Beec=axy Ci. BCLMY2))s 
write (chr (2035) ) 

ends {for J 


a 


ghomyY2simteger ) ; 


aigeavetowlsti..4t] or integers 


{box 


Seren, Geer o.2I,8CIM,2I) 3 


wreitefchr (i187); 
Popes = 1 aoM, 2i+t) 
Savery (SELM,11,1) 
write(chr(184)); 
Gotoxy (eCLM, 33,1) 
Weite (chr (186) ) 
and; Ltoiwe «8 —s 
Seca. 1 cae, l2,8RCLM,4 
Be ee ene (ea) : 
Pere s—- CHEET, 1 jJ+i) 
Gemorx’() _.BCLHM,41): 


ea. 
a 


neededs 
mas 
to (BC lin) 12. de oegin 
Ge Vow oaee tS) as Seqin 
1: 
Go MEG  SiI—1l) do begin 


Darame 
HCOi,Z] := 


{draw a singie box 


ws 


ter 
AZ? 


aS 


wreiteichr (205) 3} 
ends: {for J 2:=s 
Gotoxr YY (BCLEN.S2.BCliite4s>: 
writeichrti&b&) >) 
ends <‘tifar Fioi=: 
ends fprocedure BRASICHOXK? 


(KEKRKREKEAKAKRERKEEKKE ERE KEKE RRR RRRKRRKEARRERAKKE RHR RHRARRERAE REE) 
PROCEDURE, (sais 
WRITTEN BY : Mike Neeley = pop Wooldridge, May.3s 
Based on a pregram createc by Mark Hayes 


PURPOSE : Draws tie title screens with sound input 
PARAMETERS : none 

EXTERNAL 

NEEDS > none 


(HE KKKRKHKKREEKRERK RRR EKER E KKK ERK EKKRKE KEKE RK RKKKEKRKKERERERREE) 
orocecure TITLes 


Var 
NOTE.,M,I.43 =: Integer: 


begin 
window (1,1,80,25);3 
partlCeG3d91 := Ff and 33 
textbackagrocund (Giue); texicolor twhite)s 
Sir Secs 
BASTCROK(14,4,508,29): 
BASTICBOATT 7, 5,054,217 5 
BASICBOK (29,6,56,22); 
textcoior (yellow); 
qotory (23,5): {begin first tities screen; 
wreate (° TOUCHSTONE’); 
gotexy (23274: > 
write (A Criteria Deveiooment Frogqram’}; 
gqotre:y (253317: 
weite ('for Group Decision Support Systems’); 
GGtoxy (S27. 0-- 
write i'’mMicnael E. Neeley’); 
gotoxy (30,14); 
write ('’Robert T. Wooldridge’); 
goOCaxy 2b lee 
write (‘Naval FPostqraduate Schooi’); 
gotoxy (20.17) % 
write ( Montara, Calitoamnia.: 
GOLGKY ice. ae 
write ('1986"): 
NOTE := @; 
repeat tnoise for first title screen; 
sound (14@@) ; 
delay (340); 
sound (20@@3) 3 
Geitay (508>; 
NOTE := NOTE + is 
untad MOT 


—r 
. 3 
| _ 


my 


156 


nmosouncs 

delay (S@@a); (begin second titie screen: 
portilsOsd9)] := sf and 4; 

Gotexy (38,33; 

write (‘ADMINISTRATIVE SCIENCE‘): 

BOtoxy (2a? : 

write (¢° es 
eauaxy (Soe lo s 

write (¢° DEPARTMENT"): 


‘= 


Socio. yee, ears 

write t° ayes 

eGco-y (32,12); 

write (° Thesis Advisor os 

Gowany €52,135) 

write (' ee 

gotoxy (29,14); 

Were oee = xGan Tung Bar, FPA. D. >); 

NOTE s= @; 

repeat (Moise ror second titie screens 
sound (15803; 


deiay (SM); 

sound (/5@)s; 

Gelay {(50@); 

NOTE s= NOTE + tis 
une NOTE = 3; 


noscunds 
delay i220): 
ends (puaceeursa, TiylLes 


ee ee 
Pie * PIilvekes «oor 2 
WRITTEN BY Mike Neeley » Bob Woocidridcaes, May.da 
PURPOSE Procedurebiibrary rer 1GUuCHoS eae (coo le 
Criteria Filter Proeram) written as 4 part 
sf a thesis for a Master of Science in 
Comeouter Systems Management, Naval 
Postaraduate Schoci, Monterey. Caiitoernia 
ENCODE, INTROSCREEN, INTRODUCTION, 
MARECODE 


we 


CONTENTS 


ae 


C HE EEE ERE ER EERE EEE EERE AE RRR RR AKER KRKHRHRERHRRS HERR REE 


FROCEBDURE $: INTROSCREEN 

WRITTEN BY : Mike Neeley & Boh Wooldridge, May,&86é 

PURPOSE : Draws the Box for the various introeductory 
and menu screens 

FORSMETERS : none 

EXTERNAL 

NEEDS = Inciugde?> file FILTERI.Lia 


( RE EBLEKRAREA REE ALEREAL SKE RARE EERKAAR RARE AER EER KRERHRAEARES) 
procedure INTROSCREEN; 


begin <iprocedure (INTROSCREEN? 
porklCsGS3d9is:= ¢f and &s 
textbackoround{fbivuei; textcocioriwnite? s: 
window(1,1,88,25); 
clrscr; 
BOSTLERBRKNS. oe ogee ls 
GoLtoxy (26% 373s 
textbackground (red): textcolor iyelilow:) ; 
weite ¢° TOUCHSTONE ec 
cextbeckaround (blue); textcoloriwhits) ; 
Windows 12 .O4e 2420) 4 

ends; 


| ESE SERRE EHH EERE ERK EREE REE R SEES E EERE ERERHRSHEHHE) 


PROCEDURE =: ENCODE 

WRITTEN BY : Mike Neeley & Bob Wooldridge. May.36 

fe te eo : Encoces user name anc user ID for tiling 
PARAMETERS : input: NAMECODE : arrayli..81 of char; 
EA TERNAL 

NEEDS 2: none 


(tHE SREB AE AREER EREBRREERR REE E EAR RERH SHEE EERE EBRE ER SE REE H-C ) 


function ENCODE I(NAMECODE : CODEARRAY) : CODEARRAY; 


Yar 
TEMPOCODE * arraylicee2s eteerace 
i 2 integers 

begin 
fOr 1 3¢= Po9ba 22 Go begs 


ccohange input to ali caps and; 
if NAMECODELII in C’a’..'2z°] then 
(delete nen-letters: 
Pei COSES fa s= ehr (ona (NAMECODEEII) -— 32) 3 
tf mot iNGRECGDEEDA in £€’°A’..°2Z°I1)} then 
Memo COUE EL ime 2S" Cnr (a2): 
end; {for Ii 
tencode ali charters into code; 
iz cde 
Pa ete (ore (NelTiEEeDELIT I) F Ao/+igd: 


mare] me 
TEMPCODELI 


wi i il 


[) os 


ENEODE := TEMPCODE: 
Sie: {pracedure ENCODE? 


CHER ERR ERE RR E HREM REE KK RRR ERK RRR KRRERRERRHHEEH) 


BROCE DURE =: DELCGDE 

WRITTEN 8Y : Mike Neeley & Hob Wooldridge, May,.3é 
BeerPouse >: Deccdes user name and user ID from +riie 
PeamnemetlEeERS =: inowt: NAMECOBE : arrayf1..8] of char; 
EXTERNAL 

NEEDS : none 


CC ERERALKE REE EER ERR RRHRKR ER KER ERE SHREK ERE EERE NRERRER HERR RE EE) 


function DECGDE*NAMECODE : CODEARRAY) : CODEARRAY; 


var 
WarMmPeGeE +: arrayli.mai ot char: 
I 3: intecer:; 


begin 
{decode all charters from code} 
for I := 1 to 12 do 
TeMmeeoapeeiae:= chr (ord (NAMBeeDEET:).— (97+Iir: 


De@eee s= (EMPLCODE 
sure Det 


end; wprocecur 


(KK RKRASRRRRKRER REESE RREKE SEHR EKREREEREREHRRERSRSRRR SERS HEREREK SES) 


PRELED@RE =: MAKECOGDE 

WRITTEN BY : Mike Neeley & Bob Wooldridge, May,&55 
PURPOSE : Creates a new copy of TOUCH. ZZYV 
FARAMETERS =: none 

EXTERNAL 

NEEDS : none 


(HERE RES KES ESR ERLE HAA EERSTE ERE RRR ASHER SSE ERE HERE E THESE ERR EH: 


procedures MAKECODE; 


var 
L, X, COUNTER : integer; 
CH : chars; 
INFUTWORD : Semi aa is 
ieee lLLe Pesci mee it ss 
WORKF ILE | text: 
SAVEL INE Paina vld.. ol ser. StCringi 13 3 


fo? 


CHB es ae : \armavetll. 382 Gtipeaane 


begin ‘{procecure MAKECODEs 
Ger Sct; 
gotoxy(4,5)3 
write (‘The files on drive °,FILEDRIVE, 
have not yet ‘)3 
write (‘bsen initiallzed. ‘33 
BBeoM vl. fe 
write (’For these files, you will need a master 


password. “¥3 
gotoxy (4,8); 
write (‘'Piease input one now: (Maximum of 8 


letters) ’); 
COUNTER := is X := 24; 
gGotoxy (24,10)3 write ('HEHHENEHEX');| 


repeat fumtil COUNTER ;82+ 
HCEoNy Ong o . 
repeat 


readtkbd,CH); 
it CH inf 4a s6) 2 eenen 
CH of chic (ora (le) —s2 
until CH in lA... 2 
write (CH); 
CHECE CODELTCGUMER] == Cr: 
2 not (CHELCKLEBER tare 
A. f= Ar a 
if CH = #12 then ocecgin 
for L := COUNTER to & doa 
CHEGELEBELL A == 7: 
COUNTER := @s 
ends fi¥ CH=#i 33 
COUNTER := COUNTER + i; 
e@ds {if MOL Gheeteeues 
“une2 (Sohn eRe ees 
INPUTWORD := CHECKEODE:; 
CHECKFILE == concat<t<FiLEDRIVE. :TOUthezzy 7: 
assign ‘(WOREFILE,CHECKFILE: ; 
mswrite i{iWORKFILE:} : 
(Read file and assign parts of 
file to code informatian; 
SAVELINECIJ == ENCODE (concat (° °, INPUTWGORD) ) ; 
writeln(WOREFILE, SAVELINELCII); 
CLOSE (WOREFILE)s 
a. Sem > 
end; eprocecurea MAKSECODES 


",#iSZI]) then begin 


( RKRASLARR TARA RAR ARH ERASER EAR ERE RRR K RRA HEHE REET HAE SH 


BeecevuUee = ECHECRTHEFILES 

WRITTEN SY : Mike Neeley &% Bob Nooldricgqe, May,36é 

mene ISe > Checks to see of necessary files ar2 on 
filedrive 

PARAMETERS : none 

EXTERNAL 

MEEDS peo i VERS ieee VE. = char $s 


(HERA KHS ERASERS ERE KEE ESLER EKRA ERE RMA AAA RHKREAAARAERS EAS 


pmeGeeGure CHECK THEFILES: 


var 
WOREF ILE | tex: 
CmeGee re > straingl14]; 
begin 


{see 17 TOUCH. ZZV 


153 on the filedrive disk; 
PHECKFILE 2 = concat ( 


Pieeenmiweye s FOUR. 227°) s 


tread Tae z 
ges Om GVGGnk Ii , CHECK ILE > ; (Get file of codes: 


a 


> + 

reset (WOREFILE) ; 

aes 

it lGresult <s+ 2 then begin 
MAKECODE; 


end; {if IOresult <2} 
Close (WOREKFILE); 


CHECKFILE s= conmcat ‘FILEDRIVE, ':PROBS.TXT’3: 
Lread £11233 
Reese cee tLe ls {Set f1ie af codes, 


reset (WORKFILE); 
ier 5 
if [Oresuit «<> WY then 5beq: 
rewrite (WOREKFILE:s; 
end; fit [Oresult <-> 
close iWiC0REFILE: ; 
end; {procedure CHECKTHEFILES:; 


SRE REBRARRKAH HERRERA RHE ER AKER ARERR ARERR ARERR RHE HE) 


PROCEDURE ~: Seq Hece. — 

WRITTEN BY : Mike Neeley » Bob Wooldridge, May,36 

PURF 2S > Gets cate rrom registers, writes date toa 4a 
File 

PARAMETERS :; none 

EX TERNAL 

NEEDS > none 


(REPRE HAARRE SESS ES ES ERR KRAHERRKRR RAAB SERRRARRRS APRA RH KKK) 


procedurs Getihebate; 
{gets and changes the date; 


type 
REGISTERS = record 
AX, BX,CX,DX,BF,51,D5,E5,FLAGS : integer; 
end; trecords 


STRINGS => stringt2]; 
STRINGS = stringil4i; 

Var 
CONT INGE : boolean; 
Ly MG he Eee. oe. A 5 
MONTH,DAY : integer: 
MEXNUMNBER, YEAR 3; intecer; 
ch = chars 
DATEFILE * Een as 
DA,MO,HR, MN 5 SiivenGss 
YR ,HEALINE : STRING4; 
STRDATE : stringli@i; 
DATE 2 ‘String 4s 
NUMCHAR : array(li..83i of char; 
REGS SS REG oa tens. 


function HEACHANGE (tHEXALINE: STRING4) sinteger: 


War 
Ea a eit 
Aa els DOES : integer; 
begin 
Bos=> copy (HEXLINe, 2. 
es CODY He ALINE so eee 
Y 2= copy, (HEALINE. 4] 
case # of 
"A’ s K := 10; 
OB >, SGX = 
a 8) Rete an ee = 
DC. (seen, 3 = Gee 
(BO Sees = 4s 
(BO See 
eise 
Vial (HK, CODE) = 
end; thase od ori 


p< 
“J 
PJ 


case C of 
“mh 3: Yes= 103 
ogo sees. — ~ 1h 's 
ae see s=— 12; 
Bie 5. Yaee—-- ios 
t=, Ss ese 14s 
re sey t= lo; 
else 
valit, ¥,G@DeE? : 
ends tGase LC ots 


case D of 


"AS =: £ 3s= 16; 
One 220 s:= 1s 
aoe = eee 1s 
DD : 2 := Mes 
"ES : Z s= 14; 
op 2) fees tS: 


Viet be ie eee ) § 
end: f{Gase D of; 
HEACHANGE := (16#16#X)+(15#Y)+Z;5 
end; 4function HEXCHANGE?S 


function HEX (DATENUMs integer): strings; 


Yar 
Hevea se string.; 


begin 
case DATENUM of 


1 : HEXDATE := ‘@1'; 
= : HEXDATE := ‘@2'; 
=o £ HEXDATE := oe 
4: HEXDATE := ‘34°; 
Slime swDere #= “GS s 
G §5mEAgeTeE 2-= “06's 
? # REXG@SatE == “G7 's 
8B : HEABSTE := “Oss: 
273 Hexeeate := “890; 
10 : HEXDATE := ‘GA’; 
11 s: HEXADATE := ‘GH’; 
12 : HEXDATE := ‘@C’; 
Seeoe bate =~ Bb = 
14am HEADATE := ‘SE: 
Lae mest. s= Ue: 
16 : HEXDATE := ‘18's; 
i7eerae sare <= “11's 
terete ADAITE 2= 12"; 
Pees eee ADAILE := Les 
2M =: HEXDATE := ‘14’: 
Mis HeeBATE == "15's 
Cote mare <= “iG: 
2 7 ehiaAeaic s<= “17's 
SoM ties conte += “iss 


25 2 HE ADATES ae. 
26 +: HEXDATE 9—" 2A; 
27 : HEXDATE := ‘15’; 
26 * HEADETE s=— se e 
29 +: HEADATS 2S 12 
S09 +: HEADATE := IE's; 
ei) 2 HEX?DATE Sie 


and; tcase DATENUM?S 
HEX 3:= HEADATES 
ends ffunmctien HEA 


pe 


function SPOTtixsinteger):integer; 


var 
TEMPSFOT : integer; 
begin 
case X of 
1 s: TEMPSPOT == 233 
2 3: VEMPSEGT +— 24. 
Jee TEMP SEOY 3= 42503 
4 5 JTeniPSreat.:=e22- 
3 : TEMPSPOT := 48; 
6& : TEMPSPOT := 41; 
7 = TerForeot == 22. 
S =: TEMPSPOT =) 433 
ands 
SEOR += brenrsreen; 


ends {function SPFOTs 


begin t6etThedatel 
with REGS do begin 
AX 2= $2A08; 
MSD0S (REGS) ; 
str(Ck,YR)s; 
SCr (late n aur 
LtelLoron. =. 4 
DA == conca 
str (hitDxX) ,MOQ): 
end; twith REGSGS: 


Yal(mo,mot,code)s: 


case MOY of 


Ol =: Date := ‘Jan's: 
@2 : Bate := ‘Feb’; 
o & Date := ‘Mar’: 
44% : Date := ‘Apr’; 
25 : Date := ‘May’; 
M5 = Oate= =" Jun: 
O73 Date B=) jet: 
@8 : Date := ‘Aug’; 
GY =: Date := ‘Seo’; 


toe: Date’ a=) Oct; 
ti: Date := ‘Nov’; 
i2 : Date := ‘Dec’; 
ends icase MOT ors 


Wages eM CathDate, so aGa, 5 ) 3 ¥l) 3 


assign(datefile,’date.txt ’)s; 
rewrite(datsfile):s 
ariteintdaterile.date;; 
Cioseicatefiie); 


INTROSCREENS 
gotoxy (19,3); 
wr2te (°THE CORRECT DATE IS VERY IMPORTANT TO THE‘); 
gotoxy(14,4); 
write (°PROPER FUNCTIONING GF TOUCHSTONE! °); 
gotaxy (24,4); 
write idate); 
gotoxy(ig8.3)s 
write ('fs this date correct? Y's 
gotoxyt4i.d)s; 
repeat 

read ikbd,CH); 

Peete we. Mm a then 

er 2-2 oor (ord (CA) say 

upieeeiee Crimean CY’ , “Neen S i> 
write <tCH)s 
delay (39@); 


if CH = ‘N’ then begin 
repeat 
continue := faise; 
Ou Gz tee 4 Ls 5 
write ‘‘'Month ** Day **® Year #2#%*2#'); 
A. S12 
receat 
gotoxy (SPOT (xX) , if) 5 
mereat 
read tkod,NUMCHARE KI): 
Heed NUMeCeOREXI an Con .2 "oS ais 
write (NUMCHAREX)) ; 
X := XK + 1; 
UpitwieA os os 


aes gemcat (NUMCHARL IG, NUMCHARLCE I? s 
VA := concat (NUMCHARLD IG ,NUMCHARC 4333 
wk 


concat (NUMCHARIS] ,.NUMCHARI 6], 
NUMCHARCOC 7], NUMCHARI9I?) ; 

Wa (YRoyveonrR, CODE) ; 

Val (Me. MONGH .G@BE)s; 

fet (OG, 0RY ,LODE> ; 

- pemenoaim €) ..i23 then 

CONTINUE s= true: 


ad i 


if (DAY@in CL..311) amd CONTINGE ened 
CONTINUE i= true; 
if (YEAR in £C1986..282@12) and CONTINUE then 
CONTINUE 2= trues 
if iDAY in (S10) end (MONTH ato, 2 een 
CONTINUE s= +faise; 
if (MONTH in £23) and (DAY in” 22e. 7 S1i7 8 chen 
CONTINUE = false; 
if {DAY in (293) and (AONTH in £F@20) and CONTINUE 
ana 
(YEAR in £197386,1992,19794, 2490 ,22899,25904, 
2006 ,29012,2916,28203) then 
CONTINUE i= true; 
until CONTINUE; 
delay (SW) ; 
Glrser; 
HEXLINE := conmcat (HEX (montn) ,HEX (day)): 
HEXNUMBER 3= HEXCHANGE (HEXLINE)> s 
with REGS do begin 
CX := YEAR; 
DXA := HEXNUMBERS; 
AK = S2bB; 


MSDOS (REGS) ; 
ends tit CH = ‘N’>S 
end; 
end; igetthedcateas 


( FE REKRKRKKEKEKERKKSKEEEKKRKRKKEEKEKKERHEKKKKRRRKKRKAHEHERKRE RRR RARE EK) 


FROCEDURE : INTRODUCTION 

WRITTEN BY : Mite Neeley & Hop Wooldridge, May,36 

PURE OSS : Wreates the introduction information on tne 
screen 

PARAMETERS : none 

=XTERNAL 

NECDS ® HeCPORI VE, - LLEVRIive —:) Galen: 


CAH KLALRR ERR HEE RRR RAREA EERE AE EEE LER ERES ERR E SHEE) 


orocecure INTRODUCTIONs 


Var 
CH :” Chala: 
ACCURATE : boolean; 
WORKFILE : eH ts 
HEC tee : Sthagoli4 ie 

begin 
INTROSCREEN:; 


GOotaky(i.ase 
write (‘WOULD YOU LIKE AN INTRODUCTION TO TOUCHSTONE? 
(Y/N) . oe 
qWetexetessc 
rereat 
read (kpod,CH); 
it) CH eee yy). ee chen 


CH == chrfoard(CH} - 32) 


“a8 


Cee ee (ee eet YY 9 N' 9) Ss 
writetCH): delay (SHG); 


eT 


ese 
aot 


es 

to = ‘¥"° then begin 

Gomer i i441) § 

write ('* INTRODUCTION & INFORMATION #')s; 

qGtoxy (1,433 

write ¢' The TOUCHSTONE orogram is desianed to 
assist you in’); 

qotoxy (1,6); 

write (‘developing functionai and meaningful group 
criteria for ‘); 

Gorey «( leh) s 

write (’a Group Decision Support System. Utilizing 
the TOUCHSTONE’): 

ga@teoxy (1.18); 

write (’orocram, you will be able to condense a large 
1i:st of les 

Heeeny ©L,12)5 

write (’spontaneousiy—-considered criteria into a 
compact, weii- ‘); 

BmeLoxy 4 bela: 

write (‘defined, GROUP-SELECTED set of criteria. ‘3; 

gecrexy (igw1d) : 

@etto (| =eReESS ANY KEY TO CUNTINUE>’); 

repest until Keypressed; 

an Ser, 

gotoxy(9,1)3 

write (‘'* INTRODUCTION & INFORMATION (continued) *') 

gotoxy (1,4); 

write (' Trese criteria will be uniquely designed to 
assist you in‘); 

Gotan TS): 

write (‘resolving your current problam, whatever it 
magnt Be. ‘j)3 

Getexy (1.8): 

writ C' Instructions, speciric to each portion of the 
prooram, may °)3 

qeeaxy (IePl)) ; 

write (‘be called at any time by pressing the <F-i> 
Sortie) hey. as 

Here.y (1,12); 

weite (’Communication between "committse members" is 
accompiished’)s 

Ghee sbi 1 42 $ 

write ('’via the “Chatterbox”, an electronic notepad 
which 1s ss 

Bowe sy (la, io) > 

Write w <FPRESS ANRe KEY TO GGONTINUE>”) s 

Teneat until keypresseds 

cirscer; 

Gotoxu wie) s 

wreitet’* INTRODUCTION & INFORMATION (continued) *°); 

gotoxy (3,4)5 


“dt 8 


write (’called by the «F-2+ key. An extended 
xplanation of the ‘); 

qgotox (loves 

write (€‘oreblem on which you are working may Of seen 
by pressing ‘35 

GoOtony ~fec 8 

write (‘the ¢{F-S3> key. Specific information for the 
use of these’): 

Feet eAy tie eee 

write ft’may be found on-screen at the s5ottom of earn 
flash-up Dox. °35 

gotoxy (4,12); 

write (° TOUCHSTONE proceeds through three levels of 
criteria ‘3; 

gotoxy (1,14); 

write (‘development. At the end of each level, the 
individual tee 

GOUGH Yt eae ees 

write ( =PRESS ANY Bey fo GONTINUE- 2: 

repeat until keypressed; 

clrsem: 

GCOUCGRY <2... 

write(’* INTRODUCTION &@ INFORMATION (continued) *°); 

gotoxy 1,4); 

write (‘criteria are combined fer grous decision and 
editing. fince “ass 

AGtezyY 2 oe 

write (‘there is agreement om tonis levei of criteria. 
TOUCHSTONE ‘); 

qotoxy (1,8); 

write ('’moves on to the next level and the next until 
the THIRD’); 

Qotexy (Ul aia 

write (‘level has been completed. minally, tnere is 

Reo pCa sy ) i 


a 

aA 

i Ae he 
zy + a x 


qotoxy ¢ 

write (‘to edit the completec list. This list is then 

ready for use’); 

Goa&CcSey «2, 2s 

writ2® ('with a DSS to evaluate the specifics for each 
Erlterian., 7 

SOtLGxXyY ote, loo: 

write (°<FPRESS ANY FEY TO CONTINUE: ‘>; 

reneat until keypressed; 


ands {i¢ CH = Ys 

Eisen 

gotery (15.105 

write °* FILE INITIALIZATION te’); 

gGataxy (1,423 

write (‘First, before you start, I need some vital 


imformation: es 


GES Crass. 

write (‘On which drive are the HELP tiles locateds ‘); 
GOLGxY Camiar: 

write (¢° DRIVE: Fy “Defaults Drive As ‘)s5 


173 
a 7 2 


gotoxy 


(S,11)3 


write (’°Qn which crive are the committee 
ties iocated: ‘)3 
Sotornee (5,12): 
vr. Lee Daves = “Derauits or 
ACCURATE := ralse; 
repeat 
@otexy (13.8); 
renesat 
fead( kid .cHys 
wrewGrr im t a’... hh’ then 
So: = chile Cord (6H)" — S2): 
Unum (CH in £° A... H’ ,#13]) 3; 
wee eh = chriis) then 
CH := ‘A’: 
write (CH) ; 
RELPPRIVE := CH: 
QCGtexny (roe is): 
repeat 
read (kbd .,CH); 
Pec Perr Aa. Ad the 
CH := He (or dt ft) = 
if (HELPDRIVE = ‘A’} and (CH = ‘A’} 
CH 3:= ° : 
cree (CH ain €°A’.. AY, FiSd): 
me wot = cei? een 
CH s= “e's 
ariceiCH> : 
mereEe DRIVE == CH; 
gotox (8,16); 


f 
until ACCURATE: 


end; 


write (’Is the above 
eaetraoxy (45.16): 
repeat 


Pirormaction accurate? 


“sad t*kod . Cri} : 
uncame (Gein cl ee, ye. ON Ce 2s) 5 
Pree eee yo. nm 2 then 
fm 2 — “omerror a tise) — 32) 5 
Wir? Sener. 
deiay (8G? ; 
if epee, UY OL SS Eben 
ACCURATE := true 
else begin 
gotoxy(1,16); 
clreol: 
gmeeery (159,833 write (‘A> 
aa (iG,is): | ae ae 
end: else/if CH3 


> 
~ 
) 


[ae 


eee) 


f LRA R ELAR A HER HARRAH E RARER AR SHAE RERRERAARA HAAR RAS RA HEHEHE) 
Pile se Tete Re, ee ; 
WRITTEN &8Y Mike Neeley & Hop Wooldridas. Mav.3é 
PURE GSE Procedure library tor TOUERSTONE (cag, 
Criteria Filter Proaqram) written as 2a part 
of a thesis for a Master ot Science in 
Fomoputer Systems Management, Navai 
Fostgraduate School, Montersy, California 
CONTENTS : VERIEyveane 
CREE KKK ERE A ERK ERE EA ESKER RREE REE REE ERR E EKER KHRERR HER EE ESE) 


hd 


PROCEDURE : VERIFYCODE 

WRITTEN BY : Mike Neeley & Bob Wooldridge, May,3é 

PURPOSE : Checks to see if user name and code are 
Yalid 

PARAMETERS : input: NAMEEDDE = arrayli..34 Sf erame 

GATERNAL 

NEEDS >: AUTHORITY =: char; 


( PHRRERARHE SERRE ERE RESEARCHER RRR EE HSS 


procedure VERIFYCODBES 


Yar 
NAME OF, CODE OK 2: Gooclean:; 
CCNT 1NUE. TAS fee, 
INI TIALCHECE > Doolean;: 
COUNTER, TRIES, 
LASTLINE : integer; 
Re oe eee : integers 
CH - (elgtete- 
WOREFILE a age tee 
CHEGHE ile >: stringli4ti:; 
CHECE NAME © array @t4..cleor 23ain5 
CHECK CODE >: array (eee oleae chars 
CODEMASTER © arravil. .Gai9of chan: . 
DCODENARE s arraytll..35i af Strimnaeéode 
CODEWORD : arravii.s..3ii Gr sepzaGgiage 
SAVELINE : arrayvtl..8Su@af stringilzix 
TEMPLINE : CODEARRAY: 


Procedure GETANSWER (A.8,C,D : char); 
{solicits an answer from the usert 


hearin 

reneat 

read (kbd ,CH) ; 

Petr om bo. od Peinen 

Hos= chretoerd (CH) —32) -: 
om Cio Hiss 


tas : 
end; toroccedurs GSGETANSWER? 


ies 


it 
G) 
i 
-4 
D 
me 
W) 


orocedur: 


4S6Gi1tTS an answer from the user; 


pegin 
repeat 
ripad (kia .£H) s; 
Pe Cheek aA afk SS I Een 
fi 2> Gr (ord (€H)—22) 3 
Mio Oorloim. f° A’... 2° ee «HIS IS 
ends: ‘procedure SbETANS>: 


prsecedure CHECK ANSWER (WRITECH : char); 
tgets code input 


begin 
CHECK CODECCOUNTER] := CH; 
If Not (CHECKCODECIIJ in C 
write (WRITECH) ; 
A == X + 13 
If CH = #13 then begin 
for L := CCUNTER to a do 
EHECKRSLEPR 1 “r= ~ ‘s 
COUNTER := 4; 
ends Lif CH=Fi 3s 
COUNTER := COUNTER + 1; 
end; (i: not checkcode; 
ands “procedure CHECKANSWER?S 


s#123) then begin 


procedure CHECKINITIALS (xCOORDINATE, 
YCOORDINATE : integer); 
{checks to see if initials are valid: 


pegin 
fae cewemelLeOUNTERKI == CH; 
ipamettCHECRNAMELIS in C’ 
mite th) $s 
wr> A + 1? 
it CH = #13 then beaqin 
om j205:— LOBNTeERX to 2S ac 
CHECENAMELCLI 3:= ° “5 
BOUNRSR <= 3: 
end; waif CH=#13; 
COUNTER := COUNTER + 1: 
ands; 
NAMECHECE 2:= CHECK NAME: 
oe eee = Sor ana CAMS HeCe = 220°) or 
(NAMECKRECK = “ZZV°) or (NAMECHECK = ‘°ZZW°) or 
(NAMECHECK = ‘Z2XK*) or (NAMECHECE = ‘°Z22Z2Y°) or 
((NAMECHECK = ‘°Z22'°) and INITIALCHECK)) then begin 
COUNTER := 1; 
gotoxy(i14,16); 
Hee eeeeotiem. . Too oe INi i lTALS RESERVED! “>; 
sound (4999) sceiay (300i ynosounds 
Gelay(1352@) ; 
gortoxy’(1i4,16);3 


‘,#127) then besin 


4 
tO 
b+ 


write - ia 

gotoxy (XCOORDINATE,YCOGRDINATE) 3 write ('###'); 

X 2:= XCOGRDINATES 
enc; ti? NARECHECK = 


ee 
end; {proceaure CHECKINITI 


Zoe 
ALSS 


begin tprocecurea VERIFYCODES 
tinitialize; 


fs = 5 

COUNTER := is 

AUTHORITY := ‘Fs 

CODE OK := faise; 

HRIES i= 13 

CHECKFILE == concat (FILEDRIVE, °: TOUCH. ZZV‘'); 


tread files 
assign (WORK ILE ,CHECEFILE) ; 4ber file of codes; 
reset (WORKFILE)? ; . 
LASTLINE := i; 
{Read file and assign parts of 
file to code information; 
while itnot esef (WOREKFILE)) and (LASTLINE < 178) do bedin 
readin (WORKFILE,SAVELINECLASTLINES) ; 
TEMPLINE := DECODE (SAVELINELCLASTLINE) ; 
CLODEMAS TERLLASTLINE] += cope let e lee, tal 
CODENAMELCLAST poe [= Copy it EMP ie]. oes 
CODEWCRDCLASTLINET := copy TEMPLINE.S.4): 
LASTLINE := LASTLINE + 13; 
end; twhile not eof: 
LASTLING := LASTLINE -— 1; 
close (WORKFILE) ; 


Ci Seis « 
if LASTLINE = 1 then Gegin 

Linstructions tO new prob. inv.: 

Girser: 

GGeacry ola yas 

write ("SREETINGS, NEW PROBLEF 

G@SeEn.y (a, 4! 5 

write ¢€°As the person initiating this copy of 

1Q0UCGHSTGNE 2 

Gotoxy (3,4); 

write (‘you are designated as the: ‘3; 

S255 ese 

Arite ¢° "Problem invocavar, eee. 

sotexy ‘(Gags 

write ('AS such, you are the one ta define the 

probiems, )3 
GQOtexy —a,7) 4 
write ('select the committees membership. and perform 
Enea os 
ROCOXY eee 
write (€'variocus other maintenance functions. You may, 
no 


4 
Pd 
C 
ae 
tr} 
‘to 
om 
C3 
Al 


gGecexw Chao) 
write (‘course, designate other probiem invocators if 
Viglen) = 
gOtony 1S. 1) 
Write (‘so desire, cr maintain controei by yourselr. 
The’) $s 
GiatOxvee (5,11); 
weite (‘choice is yours. ‘3; 
Geeaxy (5,i13575 , 
Arite (‘For isa-on surocses., I wiil need to Know 
Willie a)a6 
qotoxy (3,14); 
write (‘initials (a maximum of 3): HHH °): 
X s= 34; INITIALCHECK :s= true; 
repeat 1unmtil CONTINUE? 
COUNTER := 1; 
fqet user’s initials: 
repeat 
gotoxyix,14); 
GETANS; 
CHECK INITIALS (34,14); 
MAMESTRING := NAMECHECK; 
Umer GEaUNTER a 
gotoxy (14,16); 
write (‘Are these initiais correct? Y'33 
Gatoxyei45,i14a) s 
SETANSWER Coy 4g om. Fg NODG 
17 CH in L’Y’,#iS] then begin 
CONTINUE := true; 
CODENAMELT2] := NAMECHECE; 
end wie CHE 
eise begin 
X s= 343 gotoxy(x,i4)3 write ( #88 °); 
CONTINUE := taise: 
end; 
until CONTINUE; 
GlesGce. 
aoGua yy hts.) 5 
WettLeos Tank YOU fOr YGur Variialis. You willl need tis 
use “)3 
gotoxy (3,2)5 
write ('° these to identify yourseif to the computer 
each time’); 
SGEOXY 4055.57 5 
Write °you iLlo@ son. When you do iag on to TOUCHSTONE, 
Stl © 26s 
Gator yess); 
write t'will need to use the Problem [nvocator 
Password if‘); 
Gora y (5.4) 5 
write (’you wish to identify yourself as the 
piroblem‘’)s; . 
GQtoxy C4a.S)s 
Welce i menvyocator.) $3 
GOL yY (re) s 


of TOUCHSTONE, 


EnNiS password far 


Liat passworsd 


textGaeckqroeuncired:s: 


future 


rite (‘For tris version 
i Ss oes 
GOtcxy (20.73. 
wrLltie {° &#. ee as 
gotoxny (24,733 textcolior tyveliow) ; 
write (- , eUOEANGRDC La, ee 
textcolor (whites; tex tbackqrounenqamtene 
Goto Ma. 
weaitet’ {You should memerize ¢t 
use. i ana 
qOtS.Y (5 i @e 
write 


= 
a 


the ‘) 


antoxny tS sel? 


write(’Problem Invocator Menu.) 


on as‘); 


gotoxy A212) > 


wirTite ’ 


personal ‘3 


"Ss committee member instead, 


C'you wish, you have the option to change 1t in 


If you prefer to isg 


you will meed a 


GOcaxky (4,24). 
write (‘password of your Gwn. This word (Letters 
GOniy) can 652°); 
gotoxy (3,14); 
write (°up to 39 iett im iangth: RHHRRR AR ) 
X = 323 TRIES s= 9a. Sees 2S k5 
(get proocliem invocator’s codeword: 
mepeat tunmtii CONTINUES 
CONTINUE := faise; 
repeat funtii COUNTER -3&s 
qotoxy (xX, 14); 
SETANS: 
CHECK ANSWER TCHS 5 
uniad ZOUNTERS] 2; 
GGtON YS as Poe; 
wieite €°Is this code word correct? ¥ ve 
q@otoxy (44,15); 
GE VANSWER (0 4° 4 orm ge ay Ieee 
Lt CH im Ll  ¥° 44122, thea 
CONTINUE := true 
else begin 
gotoxy (32,14): write (' ###ee Kee); 
Aes =e COUNTERS. = 2s 
CONTINUE := false; 
ends 
iimdee 2 ONT TWEE: 
WSERCUBE 3 —"CHECe Cape: 
CODEWORDC 23 == USERCODEs 
LLODEMASVEat 23" s—" i ; 
LASTLINE := 3; 
{Get committes member intormation:; 
cirser; 
GOotexky (laos 
write ( me COMMITTSE MEMBER INFORMATION ea >. 


44 


qotoxy (4,4); 


write (‘Now 1s a qood time to input the initials af 


those’): 
Qa@omy (4.35): 
write ('peocrle vou know wiil 

mneecd to Rave access to ‘)53; 
gotoxy(4,4); 


weite t°TOUCHSTONE. Flease input their initials and. 


Ter) 3 


Aotoxyt4. Aedes 
write (‘each, designate whether that individuai 


be a’); 
gotoxyi4,8); 


2s to 


write (‘CFaroblem invocator or merely a (Ciommittee 


member. '); 
gotoxy (4,9): 


wreate (° (The defauit choice is Committee member.) '); 


@etoxy (‘¢4, lub; 
weite (Initials: Access level 


Tae tate eee 
be cet ol 24 


gotoxy (17,15); write (’ (Write ‘“ZfZf* to exit)') 


repeat cumtal NAMECHECE = 2223 
COUNTER := i: NAME QF := true; 
X 2:= iS: gotoxytxz.1ii): write ('#*#'°); 
repeat funtil CONTINUES 
1QGet user's initiais: 


repeat tetae §€ -LOUNTER 2223 
qaotexyta,il?; 
GETANS; 
INITIALCHECK := false; 
CHECK INITIALS (iS,11); 
INITISLCHECH 3:= true: 
UmeEid COUMRER..> 3; 
GGtexr yess tos 
Wieteee ( Are EHReSe int eiaispcerrect’ iY‘); 


Gatenw, ) (45,157) ; 
GETAMAWER\ y 2 tm —. Y « N 5 
Steet! FY Melo? them Seqin 


is= i: 


while motiLsLASTLINE? and NAME_OK do begin 


if CODENAMELTLG = NAMECHECE then 
NAME OF := false 
else 
NAME OF s= trues fcheck user 
Pe = eee ie 
end; {while not LSLASTLINE?:; 
if NAME _OK then begin 
CONTINUE := true; 
CODENAMECLASTLINEY := NAMNECHECE:; 
Src fi* NAME OFS 
Sisce becin 


aeeoy i 14. POs 


Cis 


write ( ‘SORRY, THESE INITIALS ARE USED! '); 


sound (4860) :delay (204) ;ncesound: 


bob 
O} 
in 


deiav(1lsga@s ; 
gatoxy(14,16); 
write?’ as 
Q@otox Yee Write ( #44): 
X 3s= 13s COUN Tene — 2 
CONTINUE := faise; NAME OK := true; 
end; telses 
end 41 + 3Chs 
elise begin 
K :=@135; COONTeER == is 
CONTINUE := taise; 


end; 
gotoxy (14,13); 
write (¢(° Lis 


until CONTINUE; 


if NAMECHECK <> ‘ZZZ° then begin 
QOtGKY (a2 44 eeurace (=o: 
gotoxy (32 yids 
GETANSWER (° Geo 4 “Gear =) 
if CH inp CC’. #13] then 
CODcCHASTERCLASTLINEY := ‘W° 


else 
CODEMASTERCLASTLINES <== oe: 
CODEWORDCLASTLINES := “s 
ends: wif NeEMEBEHECK «ae 2 eee 


LASTLINE 2:= EASTEINE == is 
umtil WAMECHECK = ‘Z22Z°; 
LASTLINE := LASTLINE — 13 
assign (WORKFILE ,CHECKFILE); tRewrite fiie of codes: 
rewrite {WORKFILE) s 
for F s:= 1 to LASTLINE do begin 

TEMPLINE := 

croncat (CODEMASTERCE 3 ,CODENAMELE 7 (Cape wen ots oe 

SAVELINELRG ==> ENCODE TEMP 2 seo 

wreiteln(WORKFILE,SAVELINECK I) ; 
end: Lf Gite oy 
Close (WORKFILE) ; 
nd ae ieee 
INVOCATOR := ‘“M’ 

end Ai = spe. 

else beqin (Other than new invocators 
x 32= 46; 
qotoxy(ids,4); 
Write’ #* SIGN-ON INFORMATION +#*+#°): 
GOtCtOoxY (laa a. 
weite (€'What are your initialsY ***'); 
repeat funmtil NAME CK or TRIES=33 

CHECKNAME := ° ‘; NAME OF s:= false; 

4get user’s initials 


“Ae fu 


repeat 
GCtox+ 445.5 
GETANG; 


CHECK INITIALS (40,7); 
NAMESTRING := NAMECHECE ; 


too 


Umer) COUNTER >So: 


“hs 


£ input name against names on file; 
wniie nott(dJsLASTLINE) and not NAME OK do begin 
it LCODENAMELTGI = NAMECHECK then 
NAME DR s= true; tcheck user‘’s initiais 
for matches 
co. < tes 
ends iwh2zle not JsLASTLINEs; 
if not NAME OF then beqin 
COBNTER 2 =e: 
X := 4; 
Te lSS 2 eee S ee 
gctoxytis,14); 
writed'’ THESE INITIALS NOT ON FILE’); 
sound (1008) ;delay (30) :nosound; 
Geliay:iZwg); 
qotexyv(1S,14) swritet’ 
gotexny(44,7)3 write’ #*##°); 
ends £i¢ mot NAME OKs 
a. <i 1s 
until NAME _ OK or <‘TRIES> 


i 


g 


toheck fOr correct user sassword? 
if NAME_OF then begin 
if :CODEWORDCGG = * aes 
(CODEWORDC JI] = ‘#48 e#e Ee") 
then begin 
if {CODEWORDCII] = °* ‘) then begin 
eacoxy(a,7)5 
write l’As a new TOUCHSTONE user, 
you wiii need (3; 
Writet'a password. ')3 
GGeEeGrtyvia, iv) § 
wraitei What would you like for your password? 
HHEDHHEH'): 
end (if CODENWORDCJ I>; 
2ise cegin 
gotoxy(6,9)3 
write (‘Your Committee Member password 
has been ‘3; 
write( erased. What’); 
Gemoexny T6s14) s 
writet¢’woulid you like ror your new sassword? 
LRRERHHH SDS 
end; {else/ir CODEWORDCJ I? 
Bete wil S, 12): 
writed’ (Maximum of &@ letters)’; 
A= 45; TRIES == @; COUNTER s=1; 
fget user's codewerd: 
repeat funtii CONTINUES 
CONTINUE := faise; 
repeat funtil COUNTER 7ee 
pow@ex y (ee, 1 does 


toe 
Ci 
“J 


GETANSs 
CHECK ANSWER (CHD 3 
umtii COUNTER =; 4a; 
NOLGHyY 9Cle .coee. 
weite i’Is this cose word correct? aS gl ae 
gotoxyvy (44,16) 
SETANSWER Cy’, mm’, ¥'., No)3 
if CH in ££ ¥ {#1233 then 
CONTINGE :2:= true 
@Blse cegin 
gotoxy (45,10) 3 write i ° KHRHHEEE') 
X 2£= 453 COGNTER += 1; 
CONTINUE := false; 
ends 
untii CONTINUES: 
USERCOGDE := CHECKCODE; 
CODEWORDCG] := USERCODE; 
TEMPE: NEw: = 
concat (CODEMASTERC II] ,CODENAMED JI ,CODENOGRDC G4); 
SAVELINEC J] <= ENCODE (TEMPLINE: = 
assiaqn (WORKFILE,CHECEFILE) 3 
26e6Et file or cogess 
rewrite (WOREFILE? ; 
for © = i to LASTLINE do segin 
wreitein (HORKFILE.,.SAVELINECES) ; 
end; {for us 
close (WORKFILE) s 
ALTHORI TY 2=) °F 
qotoxytis,16)3 clilreol; 
if CODEMASTERCI] = ‘M’ then begin 
gotoxy(i2z,14); 
write ('Which menu dG you wish to use todayy’); 
GUce.7 7S. io). 
write (€'  (P)roblam invecatar or (Committee 
mMemoer : <a 
Sotony toc, 1 S73 
SETANSWER (°p° 5 CG’ 5 F sales 
tf CGH = ‘PF then Gegin 
Getauyv«i ,Fis: clgeai: 
Gotexytl.id)s cireoi 
gotaexyii,i4djd:s cireocl 
gotoxyt1,iSd3; cireol 
qgotoxy (6,10); 
weite(‘'What 15 your Proplem [nvocatar 


‘as 


© 
= 


a6 ‘ap ee 


password’ LERRAHER' DS 
A == DW: TRIES s=—) (see 7S oe. 
repeat funti 2? SSGGE (Gear Sine o—5) 5 
1get user’s codewords; 
repeat {until COUNTER +ds 
qotoxy(x,1)s5 
GETANS: 


CHECKANSWER SM’): 
UntL a LONER 7 ee 
Gelay (25) ; 


198 


tcheck usercode® against codewords on files 


Doe Rew = — GneCeeebe’s 


if (CODEWORDCiI = USERCODE) then begin 


CODE OF := trues 
INVOCATOR := ‘MM’ 
RUTHORITY 3:= ‘T' 
end tif MASTER? 
else begin 
AUTHORITY := 
COUNTER := 13 
X 3= Ss 
sound (4090) s delay (S0@) ;nosounds 
gotoxyti9,14); 
write(’ INCORRECT ACCESS CODE’): 
celay‘i@@@); 
gotoxy (19,14): 
write’ " 
Gotoxvild,19)3 wreitet sxe ee EER’ 
TRIES? = SLES +1; 
ends (eises 
immed COPESEr or (TRIES?3)¢ 
end; Witte «=~ oe > 
detay (20@) ; 
end; tif CODEMASTERLCJUI3 
end {if NAME OFS 
else Eeqin 
it CBBEMASTERC JI 
MASTER := true {Persan signing on is 2a 
else {invocators 
MASTER := false; 
gotoxy (6,18); 


a) ee 
i 


ee 


oat eS 


& 


= "Tt" then 


srociems 


writet What is your user (or invocator> password? 


HHRKSHEH'’ SS 


X s= 38: TRIES := 13 COUNTER := 13 
Terceat ahi? oe ee ear TR fES= 3): 
(get user's codewords 
receat funtil COUNTER +8; 
GSO 3214.41 2 2s 
PL RIE 5 


SETANSs: 

CHECK ANSWER ¢ 'M’) 3 
until COUNTER ¢- &s 
delay (2358); 


fcheck usercode aaqainst codeworcs on files 


PeenGeue 3— Aaa CODE; 


i (CODEWORDCIUI = USERCODE) then 
CODE OF := true 
else 
if MASTER and (COGDEWCRDC1I1I = USERCODE) 
begin 
ee Ee = 


Sack tis “MAS 
else begin 
COUNTER e=eecd ; 


a 


then 


X = S@; 

sound (4090) sdelay (240) snosounds 
gotoxyti?,14); 

writed' INCORRECT ACCESS CODE’): 
OoPiay (1i@@: ; 

gotoxy (19,14); 

write’ a: 
gotoxy(sG,1@)3 write (  RHKHHEREH’) 
TRIES 9: = Sete eee 


= eNeies {elset 
untii CODE SEeogeat es 5): 
end; 1telse-: 


end; {if NAME_GE? 
if CODE _ OF then 
AUTHORITY s= ‘T’s 
ends {else - 1f LASTLINE=1} 
end; {procedure VERIFYCODEs 


wemem EMD. LI 


crocedures No 


(HER HERR 
* PROCEDUR 
Sure Gn S 
LOCAL VA 
GLOBAL V 
ARRAYS U 
PLES AC 
EXTERNAL 
EXTERNAL 
CALLED F 
PURPOSE 


eb OR OR OR KK kK OH 


EERSTE SE 


am - 
43 u 


i 
Le Ot 
seq 


end 
ends 4 


procedure wa 


O feb EE HS 
= PRULCESOUR 
a SUPPERKIS 
*® LOCAL VA 
# GLOBAL ¥V 
* ARRAYS U 
Weer ele SiG 
*# EKTERNAGAL 
* ERTERNAL 
% CALLED F 
ane eRe oe 
at 


HEEL KREMER 
pegin t 


gatany 
textba 


writeai’ 


B3 
~ 


Files; 


SEER SRAM EAHERERE ER AEHRARRRAKRR HEHEHE RAKE EAKAAEERR ESHA AHS 


E : NOP iLlee + 
PROGRAM — : BRTOUCH. FAS * 

RIABLES : NONE * 
ARTABLES 3:3 STOPFPROG © 
Seo : NONE * 
Ce aah : NONE * 
CALLS ; NONE + 

Eli EaRSe NONE * 

ROM : % 
- Vetoes NG FiLeS ON DISK” @N THE + 

SCREEN AFTER THE CALLING % 

Pe aBeOUReew steers THE.FILE. ta 


SEEKERS ARERR AER EKER RERER EER ERR HASERHREE HEH 


nofiies} 

(stapprag) then 
in Lig nat stoogrags 
GiGi wollen 7) S 
textBbackaround (red); 
wrested’ No Fries on disk ‘*):3 
delay (40@@) ; 
textbackaground (blue); 
stopprog := true; 
3 tif not stopprags 
noflies: 


rniings 


RMB EI REESE REESE SRE RRELRSESHER SEES ER SEHR RS ESET 


eS > WARNING 
PROGRAM : SBFTCUCH. FAS + 

RIABLES > NONE 
RRIABLES >: NONE % 
sey >: NONE * 
MoS) 8, : WNCNE * 
Srl >: NONE + 

Peet ERS” 2S * 

KOM Ss) BHSEPCoy iT, + 
> WRITES ‘FILE NOT FOUND’ AFTER & 

PROP oUiNnm= wee rsle FOR RECORD. + 

HEH HHH MERE EEE EHR HHH ER HEE ERE EE MEN ER ER HERR HERE EX) 


Warnings 

fol, ieee; 
ckoroundtred); 

File not tound ‘):3 


[<> 
) 
job 


delay twig) ; 
textpackground ipliue); 
cirsol; 


aatoxy (21 atone 
and; iwarnings 


procedure Dispiayit; 


{ PREAESRRSSESKE ARERR HERA E RHEE KEE RERE ERE ES REHEARSE ER 


PRG ene UisSrleas * 
©) SUPPORTS 0r elite eee RTOQUCH,. FAS * 
*% LOCAL VARTABLES : COUNTERS « 
* GLOBAL VARIABLES =: & 
%® ARRAYS USED : NONE # 
* Pikes sat eeseee, : ACTIVEPROBLEMFILE = ‘“PROEBS.TXKT’ # 
% EXTERNAL CALLS : WARNING te 
% EXTERNAL FILTERS $3: s 
*® CALLED FROM : & 
ee eee ese - DISPFLEAYSeareclIFit FPROUBLEASAHE 
& MEMBERS ASSIGNED 


REET HEEESRHKREREE AER RARER AKRERERARKEKRREERASRRRSHRE EER KRE EEE HS 


Degin fGisplay it: 
reset iactiverrobliemrFile): 
counters 3:= 13 elroer- 


while not cUF Cactiveprobdlemtfile) do 
DeGin tWhile Statements 
read (ActiverroblemFile, members); 


if (membpers.probiem = oprobname) and 
(memoers.cnHoice = aiternative;? then 
Tmounters := counters + is 
ends EWRiLLe Statements 
closetactiveprobiemriisi);: 
reset tactiveproblemrils)s 
Voi 55 moyveover := is 
WRile mot EOF tactiveprobliemfiie? ds 
pegin tWhile Statement: 
readiActiverProdbliemFiie, members); 
i¢ imemoers.probiem = propmame? anc 
(memoers.choice = alternative) then 
neqin 
ir Counters = 18 then 
begin Lif counters = i972 
if (members.probiem = probmame; and 
(members.choice = aiternative) then 
begin t2nd if comparing protprames 
ae tem ee Do3 
aire Remi es Popes ert a ae 
5 ie MEARE ee 


stopgap := true 
gotoxy (moveover ,Y)s 
weiteimembers.orosliem) ; 


wie 


gqoatoxyimoveover + 12,Y);5 
write (members.member); 
¥ 42=.Y.-+ 445 
if Y = 11 then 
begin Cito t. 2 eS 
Wot: = 33 


moveover := 323 


end. tif Y = 143 
ends; {2nd if camparing propnames 
end Cif counters + 183 
else 
begin (if comparing probnames 
gotoxy(2@,1); 
wreitet “PROBLEM MEMBER o; 
stopgap := true; 
qgotoxyi20,Y)3 write (members.problem); 
GOtGx vy to2, fo write imembers.member}) ; 
Y 2="7 “2a: . 
ends {i comparing crobnames 
end: 
end: twhile statement; 


close factivenproblemtfilie); 
27 Net ~stonpgqan) and 
not istopproa; then 
Warnings 


Ta S Satay che 
(display its 


IY 
= 
I. 


procedure LoadIt; 


. 


CRE KRE EEK HEER EERE DHE EERE RAH HERE RK KERR AKR EK RRR ERRKRH RRR KRKRESEERE 


<> PRECEDURE >: LOADIT # 
% SUPPORTS PROGRAM : BTOUCH.PAS * 
* CCAL VARIABLES ones. REALLY TEMP = 
*# GLOBAL VARTABLES  : * 
&® ARRAYS USED > NONE © 
Paeeees ACCESSED atime tie — PROBS. TAT” * 
%® EXTERNAL CALLS >: NONE * 
MO SATERNAL FILIGRS =: NONE = 
= NEALLED FReM : * 
ee ini oe into DURE SE BaDS THE ACTIVE % 
* PROBLEM FILE INTO AN ARRAY FOR # 
% (Rew eUREGSE GF DELETING A MEMBER * 
+ petite eerecrt te CAMMLITEE. CR = 
& Sess eeidee | ECCMPLSTELY. + 
t fia= See DURE Ses lAYS ALL € 
% Peco eo olemital Ihe USER CAN VIEW 
% WHAT PROBLEMS HE MAY WISH TO # 
+ MANIPULATE. € 
HE LKHE EARLE KLRAK RK KRALH ELH K RAK EEK AA REHM RRRRE RR MHERRER EE) 


Var 
tenpocros : Sug mgos 
reailytemp : strings; 


begin t‘Leagaec. 
EGinsers Yes =e 
An ete: temporscb 3:= ° °3 
Assiqntactiveproblemrile, 
concatifiledrive, “:orc0bs.txt )75 
Reset (ActiverrohiemrFiie)s: 
if ‘filesizetactiveproolemfite)) + @ then 
begin cif tne filesize statements 
write PRES2Ze0 = 
temeprob := ° °3 
whiie not EDF tCActiverrobiemFiie) do 
begin (While statement? 
read fActiveFroblemFile,members? ; 
reallytemp := 
concat (members. problem+members.choice) ; 
if (tempprob <2 reallytemp) and 
(members.choice = alternative) then 
beqin 
SOLa4 yi yas a: 
awrite (memcoers.probiem);: 
YO r= "Ys e 
enc; 
tempproe := reaiiyteme; 
it ¥Y¥ = i@ then 
beqin 
YS 
A fe AE Les 
Set gy § ayes weitet “PROBLEM ‘) ; 
end; 
ends 
close lactiveproblemrilia:;: 
end; ilf the filesize statement: 
end: tLoadie; 


proceacure DeleteArraplems 


( SCHERRER EERE RRR SRE EE EERE EER RRR HERE RRE KR KERR EKER RRA RRR HEH 


& PROCEDURE te) DECEIESrPREESLEM He 
AoE URTS PROGRAM <=  BYOUSHIFAS ci 
* {LOCAL VARIABLES One Raoea tere MEMBe Rk a TEMP s , # 
* GHEGEED., COUNTS * 
@ GLOUSAL VARIABLES + ££, INPUTSTRING, STOPFROG. MEMBERS * 
# PR@Ehee. -LLEPRIVE. NEWSTRING. < 
* ALTERNAT IVE * 
*# ARRAYS USED s NONE * 
Sei ties ACCESSED 2 (EMRE @BCEMF likeeeGHECKFILE, * 
* ACTIVEPROBLEMF ILE * 
*® EXTERNAL CALLS >: LOADIT, WARNING, NOFILES * 
See nalemMAl FILTERS =< FILTERS.LISsB © 
*% CALLED FROM : PROBMANIPULATION * 
Sie i Oo : THIS PROCEDURE ALLOWS THE USER TCO # 
* See 8 -ROSEETY DISPLAYED GCN * 
= THE SCREEN FROM THE FPROCEDGRE * 
* (Seat a Fle sericea Te ION. te THe * 
* USER CHANGES HIS MIND ARQUT _ * 
% DELETING A PROBLEM. HE GNLY HAS it 
+ TO PUSH THE RETURN EEY AND NO F 
* Sel Wee OPE ED. = 
+ Sareea rreniyG- THE DELETED = 
* PResL=? PS 9S5iVEN AND THE + 
= REMAINING PRCBLEMS ARE AGAIN - 
+ Bior-tarci it 
ee ee ee ee Se ee 
var 
SHORTNAME o- Serine il?y i: 
[Weer EHGRLEMPILE we “rile of “PROBREC; 
Petr Meriber ee RE ES 
aie. : S@RWNGCIZ; 
Soe okr (le = fEA7; 
GRECKED : BOOLEAN: 
COLNTS : TNT EGER. 
cegin iDeietefrfrodiem: 


checked := false: counts ak (el a 
Reset (ActivePropiemFiie); 


z= (filesizelactiveproblemfile)); 


:= @: 


close lactiverrobiemfils?)s 
it zs Q tnen 
beagin {It tne filesizs statement; 


Goeewy iit. 12) 5 


write ‘’CAUTION! !! Entering a orcbiem name from 


£h2S i275) well‘): 
Bim wy (i » Lo) 
weite(’delets> ALL files with that name.’, 
VemciLt wither cereci mG is 
Oe ye 2S Witt 2 a Sheoiem,oress Fid. 3; 


repeat 
eee (2 a i) s 


wirited’Enter the orebiem 
you wish to delete: ie 
repeat 
getthekeys (inputstring,/?); 
shortName := inputstrina; 


gotoxyi49,15);5 
umtil fgord(shortnametild> + 32) or (stoprroqg:): 


probname ;: 
concat (probname,shortnamelad); 
a:i= a+ il; 


end: 
1f mot stopprog then 
begin C1f net stopprog: 


Assign (activeprociemfiie. 
comcat‘filedri ve, :Gro0bs.txt 3); 
reset (ActiverFroblemFile): 
Assigqn (temooreblemfile, 
concatifiledrive ,’stempprooc.txt 
rewrite(temprropiemFilei:s 
while not EF iactivepropiemriis) da 
begi (While Statement: 
read (Activerrsobiemriie, members: : 
temomember := members; 
if imemoers.probiem = probname: then 
begin 
NewString := 
probnametaliternativer 
", +memoers.nember 3 
Assignikriteriafile, 
CONCaAtwegeweOrive, = y 


~ 


NEwWStCring)}; 


@ 


~ 
Se t* 
66 


i oe 
erasetKritertarFiie)s 
LSiae 


it IDresuit 
checked := true; 


ll 
ft- 
rv 
i 
tu 
a 


end: 
if (members.crobiem «> oprobname? or 
(members.choice <> alternative) 
then 
writetfemorroblemrFile, 
temomemder ; 3 
ends (While Statements 
if checked then 
Heqgin f{if checked: 
templ := probnametalternativet’.22q°3 
= {che 3 nate 


Newe 
owe F -_- ~( £3 7 = 4 “ 
Cl fa le. GONG se peewee 2 Ye ee 


= 
e 
3 
e 


Rae 


crn 
temol 


sm 
= 


1f [Oresuit = @ then 
checked := true: 
templ := osrobnamet’.2zzw’ 
assiantcheckfile,concatié 
tempijd)s 


eS ae 
wr 
ws 
0 
Q. 
“4 
pi 
< 
tv 
ce 
A 


2 f=) 

erase (checkfile); 

Le l+e 

if [Oresult = 8 then : 
cnecked := trues 

temol := probdnametraiternativet’.zzx’s 


¢ # 


Assignicheckfile,concat(filedrive,’:', 


templ))s; 
oe sl 
erase (checkfile)s; 
C$I+7 


if TOresulit = @ then 
cnecked := true; 
tempi := probnametaiternative+ ’ .z 
ASssignicheckfiie,concatifliedrive,’:°. 
tempel))s: 


ase t(checkrile): 


rn 
“hy ote TT Ut 
RH 


lt = 9 then 
Goos= true; 
ends 1+ Checked; 
clesetacctiveprotdiemrilei; 
Closeitempproblemfile)s 
erase (activeproblemfiie); 
rename (tempproblemfile, ‘probs.txt‘’)s; 
i¢ Checked then 
begin 
irae gins 
Sotoxy ( 1 2ag4? 
wreitei Tne FProbiem ~ ,orcbname,’ 
has been deietead.'); 


deiavisG@@) ; 
and: 
end; t1f not stopproqg? 


tf not (checked) and 
mot «stoppraqg) then 
warnings 
G@ounts := succicounts:: 
fiche 


mela GWees SF <Steugaeeg) "ear teounts * 2); 
2nc Lif the firissize statement: 
else 
nofiliess 
he : (DeiereAFrobpiems 


7 


procedure CheckAFrobiems; 


( SHHEEEE REHEARSE RASH RHRE RHEE RRERERARK AEE REE ES RHRRRREE ERE RERR KEE 
%* Proce pane CHECK APROBLEM 


SUPPORTS FROGRAM : &8TQUCH.FAS 

LOCAL VARTABLES > SHORTNAME, COUNTS 

GLOBAL VARIABLES : STOPGAP., Z, INFUTSTRING, STOFFROG, 
PROBNAME, MEMBERS, ALTERNATIVE, ¥ 

ARRAYS USED MONE 

PILES ACCESacy nel VEPReee eee 


EXTERNAL CALLS 
EXTERNGL FILTERS 
CALLED FROM 
PURPOSE 


LOADIT., WARNING. NOFILES 
PuStene . i iB 

PROBMANIPULATION 

GIVES AN INVOCATOR A DISPLAY OF 
MEMBERS ON A SPECIFIC FROBLEM AND 
WHEN THAT MEMBERK LAST ACCESSED 

HIS PROBLEM. 

KHL LALRALE RL EAA LARS RRA ELAR RAMEE ESSER RARER RARHAERKERALENSE 


KOK ROK OK ROP HR OR OR ROK 
~ ok ee ok ROR OK ok Ok ke ok hk 


r 


Yar 
SHORTNAME : STRING; 
COUNTS : iNTEGERS 
Segin tCheckAFrobi ems 
counts := @s stopgap := false; Peiac: lt 


Recet (ActiverProbiemriie); 
2os= (filesizetactivenropiamtiies);: 
closelactivenprobpiemriie); 
if 2z2 > @ then 
begin {If the filesize statements 
repeat 
Gorey, £235 
wreite(’Entering a Froblem name’ 
from tings?) list wiit Frew yyeou 
SOtoxy 61.12. 
write( ‘When a member last’, 
accessed a Froblem'); 
GOEGGK Va0,, 2 ale 
wreite(’Enter the mame of the FProbiem: fe 
repeat 
getthekeys(Inputstring,7)s; 
shortName 2:= inputstrings 
gotoxy (354,168, 
if stopproag then 
Stocpgap ?= Erues 
umtii Cordisnortnamellis + 32) or (stoperog: ; 
a 3:= 23 
probname := shortNamelid; 
while (shortnamelaid <2 chrti3)) and (at&) da 
begin 
orGconame ; 
concatiproconame,snortnameladl:?; 
A i= at is 
: 
3 


ta? od 


Pe 


Reset (ActiverropiesmFilte);: 
while not EOF (ActiveFrobiemFile) do 
peqin {While statement: 
mead tActiverroplemFile.memoers);: 
it (members.probpiem = crotrame;i anc 
(members.choice = aiternative) then 
beqin 


eee oe nen clirscrs 

Siac. ite 2) s f 

wicitae’ “PROBLEM MEME 
Bee): 

stopgap := true; 


gotoxy(14,Y); 
writeimembers.oroblem); 
Soro; y (za, ¥) : 
write (members. member): 
qotoxy (34,Y)3 
writeinimemoers.dateline): 
Freeper et Ls 
if Y - ea then 
beain 
gotoxy (16.16); 
write 'Fress RETURN tro 
continue ); 


getthekeys fiineutstring.i); 
ear ser 3 ge 
ends 
Erie. 
end; {While statement; ~ 


Close factiveproblemfilie);: 

if mot (stopqap) and not (stopprog) then 
Warnings 

GQunts s;= Geounte + Ts 


Spee sceDOab OF Beevint==- =<) or (storprcors 
if mot (stopprog: and {stopaaci then 
pDeGin 
BOLO Yt Lo. tS) 
Write< Press RETORM ep Contintte. )-+ 
Gettnereysiinoutstring.i}; 
Shes 
end fIf the filesizs statement: 
eise 
nofiies; 
end; “ineckArProbiems 


procedure SelereAMemser 3 


(SRE SEEK SEE ESSE SKRAKRERAKRAESEHEE ESR TESS REARS TES SHR SE 


CALLED FROM 
PURPSSe 


PERSMANIPULAT ION 


+ 
+ 
& 
+ 
THIS PROCEDURE ALLSHS THE US ree 
SELECT & MEMBER AND PRUSLEM FROM «* 
ne SCREEN FROM THE PROCEDURE * 
‘LOADIT*’ FOR DELETETON. THIS 4 
WILL ONLY DELETE ONE MEMBER FOR # 
ioe etl ir LC Re eaee yy aera eae it 
SHRARSFSHAKKRSRRARER SERRA EHR AEREKREEHRRKE ERK RRHKE RA HKR RES EHS 


* PROCEDURE > DELETEAMEMBER * 
* SUFPORTS FROGRAM : BTOUCH.FAS * 
* LOCAL VARIABLES : SHORTNAME, FILECHECK, MAGGIE, * 
# COUNTS, MARGARET, TEMPMEMBER * 
* GLOBAL VARIABLES : INPUTSTRING, Z, STOPGSP, STOPPROG.=# 
* PROBNAME, ALTERNATIVE, MEMBERS, + 
% NEWSTRING * 
* ARRAYS USED : NONE * 
* FILES ACCESSED > TEMFPPROBLEMFILE, ACTIVEPROBLEMFILE* 
% EXTERNAL CALLS : FILTERS.LIE : 
* EXTERNAL FILTERS : LOADIT, DISPLAYIT, NOFILES, 

% GETTHEEKEYS 

st 

t 

a 

* 

® 

* 

 y 


Yar 
SHOR TNAME : STRINGE7I; 
FILECHECE, MAGGIE =: BOOLEAN; 
COUNTS : INTEGERS 
TEMPPROBLEMFET ES 5: 22 of PROUBKES: 
TEMPMEMBER : FROBREC; 
MARGARET : INTEGERS 
begin (Dei ereAMemser: 
Reset (ActiverropiemFiie)s: 
= ?= ifiliesizetiactiveprooblemriiese:); 
closetactivepropiemfFile); 
it zs. @ then 
begin {If the filesize statement; 
repeat 
Margaret := @; Maqgie := faiss; 
Loadits 
stere@anp := faise; COUNTS := @s 
Se (eben Le es 
wreitei’Toa quit without celeting a Member, 
Press Fig. ')3 
repeat 
qotoxyi6,14); 
wreitei’Enter the Member’ ’s PROBLEM: ous 
GGtony (os 7 lee 
reaneat 


getthekeys (inputstring./): 
snortName := inpmtstring;s 


=A 


gotoxy (34,14); 
until ‘Cord(shortnamelijd) + 32) or 
(stopprag); 


as:= 23 probname := shortNamelli; 
while tshortnamelCal «> chr(32)) and (ata? 
da 
begin 


probname := 
concatiprobname.srnortnamelail): 
A:= a+ 15 
ends 
reset (activeproblemfile); 
while not EOF Cactiveproblemfile) ds 
begin {While Statement} 
read (ActiveProblemFile, membders) ; 


if (members.problem = probname) and 
(members.choice = alternative) 
then 
margaret := succ(meargaret); 
end; {while statement; 
if margaret = 2 then 
begin 
Maggie := trues; 
counts := 33 
end 


elise 
stcepgqaop := true; 
lif not (stopgap; and not (‘stoporsg) anda 
not (maggie) then 
warnings 
counts := succ (counts) ; 
until (counts * 2) or (stopgap) or 
(stopprog) ; 
closefactiveorcblomfile)s: 


counts := @; 
if (maggie) and not istopprog) tnen 
beqin 


gotoxy (i i>): textodackogrouncired:; 

write(’ DELETION ABORTED! Committee  , 
‘would have less than 2 members ‘); 

delay (4Q@@0) ; 

textbackground (blue); gotoxyl1,is); 


clreol; 

stoporoq := trues 

stcopaan := ftaise; 
ands 


if stopgap then 
begin tif stopgaps 
filecheck := false; 
displayit; 
repeat 
GoOCony (ts 14) 5 
writei’Enter the MEMBER’, 
initials that are to be 
removec: pos 


ol 


repeat 
getthekeys (Ingutstring,3); 
NewName := inputstring: 
until (Card (shortnamelid>) = 32) or 
(stoporag? 3 
reset (Activerroblemrile)s: 
Assign itemoprobiemfile, 
concatifibkegrive., :temeorep. c2& 33 
rewritettemorroplemFile:s:; 
while not abr (activeorcoliemfiiea;: da 
begin fwhile Statements 
read(ActiveProbiemFile, memoers) ; 
tempmember := members; 
if (members.probiem = probname) 
and 
{members.member = NewName) 
and 
(members.choice = alternative) 
then 
begin 
fiPPeCeneck  := trues 
NewString i= 
members.problemt 
alternativet 
°, tmembers. member 
ASssigntkriteriariil 
concat itiledrive, 
s  ,MeENnstrimgs i. 


5 
=; 


{$I-}F 

erasetkKriteriaFile); 

“Slice i 

if [Oresult 8 then 
Stopgap : true; 


ands 

17 (‘members.prablem <> propname:; 
or 
(members.member <> MNewName? 
then 


write iTempProoiemFile, 
tempmemober >; 
ends {While Statements 
close(activeprobiemfile); 
if not (fiilecheck) and 
mot {(stopnrog) then 
becqin 
cotoxny (lj. 2a 
textbackground (red); 
weitel’ Member is not on that 
committee “); 
delay (4008); 
Laxtpackground (biue: ; 
QOt ORV Mts tay 
clreols 
end; 
If filecheck tnen 


Zac 


begin 
clrser;: gotoxy{t ie7) 
write(’ The Member 
*,NewName, 
in the committee handling 
the problem’); 
Goce, 741,10); 
write (probname,’ has been 
deleted. '): . 
delay (2000) ; 
end; 
counts := succfcounts); 
until (counts > 2) or (filecheck) or 
(stopproag) ; 
close(tempproblemfiie); 
erasetactiveproblemfile); 
rename (tempproblemfile, 
concat(filedrive ,’:prebs.txt’)); 


end; Lif stopgap; 
until stopprog; 
end {If the filesize statement 
elise 
noftiiess; 
end; (Del eteAMember: 


procecure sacAMember ; 


CKERKKKEKKRKKKE HEHE HER HKKKKKKR EE KRKKKKRRKEKKKRKE ER KRKRKHRKEKKRKHRKHEERKRREKREREE 


* PROCEDURE : ADDAMEMBER * 
* SUPPORTS PROGRAM : BTOUCH.PAS * 
* LOCAL VARIABLES : TEMPNUM, SHORTNAME, * 
* TEMPDEFINITION, CODE, # 
x VERTZ, FILECHECK. TEMPNUMBER, $ 
+ | TEMP MEMBER 4 
* GLOBAL VARIABLES : 7Z, COUNT, LIMMIT, PROBNAME, * 
* ALTERNATIVE, MEMBERS, STOFPROG, = 
* INPUTSTRING, MOVEQVER, NEWSTRING = 
* ARRAYS USED : NCNE % 
* FILES ACCESSED : ACTIVEPROBLEMFILE, KRITERIGFILE + 
* EXTERNAL CALLS : LOADIT, WARNING, DISPLAYIT, * 
* NOFILES, GETTHEKEYS * 
* EXTERNAL FILTERS : FILTER9.LIB * 
* CALLED FROM : PERSMANIPULATION * 
* PURPOSE : THIS PROCEDURE ALLOWS THE USER TO # 
* SELECT A PROBLEM THAT iS ALREADY + 
* ACTIVE AND ADD A MEMBER. THE * 
x USER IS ALLOWED TO VIEW ALL * 
* PROBLEMS AND THE MEMBERS CON THAT * 
* COMMITTE. # 

\ 


SBR EER ERE ERLE EEE E REE REKRHREEREKRKEEE REFER ARESHRERE EHR ERERERESE 2 
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Yar 


TEMPNUM : STRING: 
SHORT NAME : SfRinGhyer 
TEMPDEFINITIGN = STRINGESTI; 
LORE Viki Zz : iNTEGER; 
FIGeCHeeis : BOOLEAN: 
TEMPNUMBER : INTEGERS 
TEMPHEMBER : StRiNGS: 
begin tAdgddAaMember: 
LoadIt; 


filecheck := false; 
Reset (ActiveFProblemFile); 
z3= (filesizefactiveproblemfile)); 
close(activeproblemfiie); 
if 2 > @ then 
begin tIf the filesize statement; 
gotcha. 
Weite(’Please enter the name of the problem to which 
you’); 
GOEOHY (lL, lo) > 
write(’wish to add a member. “aes 
count := @; iimmit := @: 
repeat 
gotoxy(1,i4)s 
Write (’'Tnhe name must be listed abcve: er - 
repeat 
getthekeystiInputstring,?7)s 
shortName := inputstring; 
gotony (33,14); 
until (Cordishortnamelidj>? > 32) or (stopprog)s 


a:= 23 probname := shortNamelid; 
while (shortnamelald <> chr(22)) and (avS) da 
begin 


probname := concat(orobname, shortnametai)s; 
arzi=atils; 
ends 
Reset tActiverProplemtrile)s 
while not EOF factiveprobiemfile) do 


begin twhile statement; 
Read (ActiverroblemFile,Members) ; 
if (Members.Froblem = FrobName) and 
(members.choice = alternative) then 
begin 


tempdefinition := members.cerinitians 
limmit := Llimmait + is 
filecheck := trues 
ends; 
end; {while statement; 
close (ActiveProblemfiie); 
if mot (filecheck) and 
mot (tstopprog:s then 
warnings 
count := succfcount) ; 
until ifilecheck) or tcount = 2) or istopprog)s 


204 


if tiilecheck then 
begin tif filecheck statement} 
Gisplayit; 
repeat 
repeat 
SOLoOx yi, Loe 
Write (’How many members do you’, 
wish to acd to this committee? } 
getthekeys(inputstring,=); 
ctCempnum == inputstring; 
Spex yeas6 shave 
val (tempnum, tempnumber ,code) ; 
if (limmit + tempnumber +; 15) then 
begin 
gotoxy(7,146)3 textbackground(red) ; 
write’ There will be over 15’, 
“ members on that committee ‘)3; 
delay (49@@); 
tex tBackground (blued ; 
Gotcexy (7 e):s cireols 
filecheck := false: 
stoporaog := trues 
end; 
uUNtT1i ifilecheck) or (stopprogi;: 
umtil €temoenumber + 2) and (temonumper «< 14) oar 
(stormprog): 
it mot stcpprog then 


‘ae 


begin {iF not stopprog: 
moveover := 173 count := @; 
vertz2 := 15; 
Gotmeaxy GleyebSd : clreol; 
repeat 


limmit := @s 
SGtexcaee, 1S ; 

Wreitet 'Memoers names: 7 
gotoxy (moveover ,vertz); 
getthekeys (Inputstring,) 
temomember 3:= inputstring 
Reset (Activerrobiemriis) 
while mot EOF (activeproblemfiie) de 


ae 


begin 4while statements; 
Read (ActiverProbiemFile,MNembers) ; 
if (Members.member = tempmember ) 
and . 
(members.propiem = proorname? 
and 
(members.choice = aiternative) 
then 
limmit := Llimmit + 13 
if tempmember = ° * then 
limmit := 190; 
ends “while statements 
ciosetActiverroblemriie); 


1f (limmit = @)} and 
not (stopprag) then 
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seqin 
hMembers.Member := tempmember ; 
Members.Checkstate i= ‘a’; 
members.dateiine := ‘Empty File’; 
memcers.detinitian i= 

temodetinitioan 

members.problem := probname; 
members.choice := alternative; 
reset (activeprobiemfiie?; 
Seek (Activerrobiemriie, 
Filesize tActiveProblemFiie)); 
Write (ActiveProblemfile,Members) ; 
close (ActiveProabliemfile); 
NewString := 
Probnametalternativet 
‘, “+members.member ; 
Assign (kriteriafile, 
concati(filedrive, ':',newstring)): 
rewrite (Kriteriatiile); 
close(Friteriafile); 
MOVEOVEr r= moveover + 33 
count := count + 1; 


if count = 2 then 
begin 
vertz i= 14; 
noveover i= if; 
end; 
end 
else 
if not stopprog then 
begin twarning?s 
goatoxy (la. Peer: 
textbackground (red) ; 
27 taimmit = 1486 then 
wreitet’ You must enter 
memser''s initials °) 
else 
write(’ Member is already 
om tnat committes °:33 
delay (49@0); 
textbackground (blue? ; 
gotoxyt12,12)3 4clreali; 
end; twarnings 
until (count = temonumber) or (stoporaq); 
dispisayits delav (480i s; 
end; <1f not stoporags 
ends tif filecheck statements 
end tif the filesize statement: 
elise 
nofiles; 
end: tAdcdAMember: 
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procedure CheckforDoubies; 


(HERE EEKESE HEHEHE SHREK REE EH EHH REFERRER ERE ERE R RHEE REE RRR ERE 


ke OR KK OK RR OK KR ROR KOK KOK OK 


HEHEHE EKER EKR KERR EKRMR HERE RE ERK EEE EHH E HHH HER EERE HR RR HERE HK ESE | 


PROCEDURE >: CHECKFORDOUBLES 
SUPFORTS FROGRAN : 8TQUCH.FAS 
LOCAL VARIABLES > NONE 


6SLORBAL VARIABLES STARTUP, COUNT, MEMBERS, 


ALTERNATIVE, FPRCBNAME 


ARRAYS USED s NONE 

Bob SsS HeCessSep eee Pe Vvem meee ile =  PREBS.TAT” 
EATERNAL CALLS >: NONE 

EXTERNAL FILTERS : NONE 

CALLED FROM >: NEWPROBLEM 


PURFOSE 


THIS PROCEDURE PREVENTS THE 
INVOCATOR FROM CREATING A PROBLEM 


WITH A DUPLICATE NAME, THEREBYE 


OVERWRITING AN ACTIVE PROBLEM. 
IT GIVES THE INVOCATOR THE 


OPPORTUNITY TQ RENAME THE ‘NEW’ 


PROBLEM. IF HE CHOOSES NOT TO 
RENAME THE NEW PROBLEM, HE IS 


ALLOWED TO CREATE IT 


pegin <CheckFor Doubles: 
EGtint 2= 1; Startup := false; 
Reset (ActiveProblemFile); 
while not EQF (ActiveProblemFile) do 
begin {While statement; 
read (ActiveProblemFile,members) ; 
if (members.problem = probname) and 
(members.choice = alternative) then 
Startup ~= truer; 
ends; <while statements: 
close(activeproblemfile)s; 
enc: {(CheckFor Doubles} 


MOT 


* eK Oe OR KOR OK KR OK OK ROK OK OR ROOF 


Re 


procecure NewProbiem; 


CHEESE SHKLAERE SHE SEKERKKRERRHEKREKRSE ERE KRHEERKESHREKRSHRERKKRE KEK KEEPER KEK 


CALLED FROM 
PURPOSE 


PROBMANIPULAT ICON 

ALLOWS THE INGVCATOR TO CREATE A 
NEW PROBLEM FOR EITHER 
ALTERANTIVES GR CRITERIA. 

BRR R KK ARERR EE RK LRE KLEE REE ERE KEE ERE ERE RENE ERAR EERE RE RRR EERER 


* PROCEDURE > NEWPROBLEM * 
* SUPPORTS FROGRAM : STOUCH.PAS ¥% 
%* LOCAL VARIABLES : TEMPNUM, SHORTNAME, CODE, * 
* TEMPNUMBER, CHM, TEMPMEMBER, * 
* TEMPDEF * 
* GLOBAL VARIABLES : INPUTSTRING, ANONYMOUS, STOF, 4, +* 
* PROBNAME, CHATORK, STARTUF, CH, * 
* STOPPROG, MEMBERS, Y, MOVEOVER, 
* COUNT, ALTERNATIVE, FILEDRIVE, % 
* ARRAYS USED : NONE * 
¥* FILES ACCESSED : ACTIVEPROBLEMFILE, * 
* EXTERNAL CALLS : CHECKFORDOUBLES, GETTHEKEYS, * 
% INTROSCREEN, SETFILE * 
% EXTERNAL FILTERS : FILTER1.LIB, FILTER7-LIB, * 
x FILTER9.LIB # 
* + 
+ 5 
& . 3 
> + 

} 


Yar 
TEMPANUM '. SIRINGES a. 
SHOR TNAME Sr oTRUNGL 7 is 
CODE, TEMPNUMBER : INTEGERS; 
CHM : CHARS; 
TEMPMEMBER : STRINGS; 
TEMPDEF : ShRINGRSai; 
label 140; 
begin iNewProbiems 
Anonymous := False: {Stop := Trues} cirscrms 
Assign (ActiveProbiemFile, 
concatitaledrive,  sFroeps-txt 32 


IntroScreen: 1@@: GotorxyY (2,2)35 
Wreitet ‘Please enter the name of the new problem. '); 
GOEOXY (252) 


Write l(’The name must not exceed seven letters: i 
gotoxyv(SO,5)s 
repeat 


GetthnekevstInputstring,?7?); 
shortName := inputstring; 
gqotoxy (29,3); 


until (ord(shortnamelijJ) > 32) or (stopprog)s 
a:= 2; probname := shortNamelid; 
while (shortnamelald <> chr(32)) and (av8) do 
begin 
probname := concat (protname,shortnametat): 
a 2:= a + 1; 
enc; 


=e 


CrheckForDoubles; ChatGk := True; 


(HHH RER KES RERER HERRERA E EER ELE HERE EK RRERE RRR RE RHRKRKEKE EES 

*® AT THIS POINT THE PROGRAM HAS GONE AND CHECKED TO SEE IF«* 

&® THERE ARE ANY EXISTING PROBLEMS WITH THE SAME NAME . IF* 

*% THERE ARE, THEN THE BOOLEAN VARIABLE ‘StartUp’ [S SET TO« 

® TRUE AND THE NEXT ‘IF’ STATEMENT IS ACTIVATED. % 

RMR KRHA SARE KSEE RRA RARE RE RERALA KER MRE E HEHE E ARERR RER HEHE) 
if StartUus then ; 


fegin tEmbedded If StartUp Statement Warning? 
window(6,4,74,21)3 textbpackground (red); 

Gir scrs 

gGotexyt(é6, 379 

write ’ATTENTION!!! THERE IS A FILE ALREADY WITH 


THE NAME ¢ ,probname) ; 
gsorearyto,7) 3 
writed’'IN OUR FILES. IN ORDER TO GO ON, YOU WILL 
HAVE Se See SRYE THIS) 
Gotan. (G4 7 I: 
write( PROBLEM A NEW NAME OR DELETE THE OLD ONE. 
DO YOU". Wes TOs; 
egcazy CG, 11); 
write i “CONTINUE, GIVING THE NEW FROBLEM A DIFFERENT 
MAMET", ° YA): 
repeat 
EBcoNy.oG. lille 
gettnekevyvs(Inaputstring.i:; 
Ch s= inputstring; 
chm := ch; 
NCI ChM ineheye, “Nels 
if ch = #89 then 


beqin 
textbdbackgroundiblue)d; Cclrscr; 
Ainaewtl2 jee 73,243 Cirseims goatc iM@s 
ends 
ends: {t{Embedced [f StartUp Statement Warnings 


{ HERE KLER HERE REKAEKRAKE RARE LE RKE KKK KERR ERRHRKRHKRRRAH ME KKRERHKAES 
Pear fHiS FPUINT TAE PROGRAM HAS GENE AND CHECKED TO SEE GE 
* IF THERE ARE ANY EXISTING FROBLEMS WITH THE SAME NAME . * 
* IF THERE ARE NOT, THEN THE BOOLEAN VARIABLE ‘StartUp’ * 
*% IS SET TO FALSE AND THE NEXT IF STATEMENT 15 ACTIVATED. * 
EEEERRE REE RR HEK SRK ER HEE KEE HE KERR EKEE KER HERE KERR RRR REREHREEE) 
if not ({Startiic? and not (‘(stopprag) then 
DeGin fimbecced if mot Startup Statements 
Reset (ActiveFProblemFile); 
Seek (ActiveFroblemFile,Filesize(ActiveFroblemFile));: 
members.problem := probnmame; 
BotoxyY (2,4); 
Weitein(' Flease give a one line definition of 
the problem: ‘33; 
G@maexy ts ,o) 5 
getthekeys (Inputstring,3S&) ; 
tempDef := inputstring; 


aoe 


gqotoxy (2,6)3 
wratet’Do you wish to elaborate on that 
definition? topo 
repeat 
HOC Gay (a7 goo 
getthereys (Inputstring,i?)s; 
ch 3:= inputstring; 
chm := ch: 
umctEil CAM mee 0 YY seed: 
if ch = “YY @then sctretiea ee, 21a hee 
windgowti2?,3,72,20) ; textbackagrounc (blue) ; 
gotoxy (2,4e 
Wirite (‘How many members comprise this 
committee? ‘°)35 
repeat 
gotoxy (38,7): 
getthekeys (inputstring,2);3 
tempnum := tnputstring; 
val (tempnum, tempnumber ,cod2) ; 


ra 


if tempnumber «< 1940 then 


begin 
gGotexytaea,/) > 
cilreol: 
wirited(’ “)s; 


textbackaqround fyellow): 
write(temonumber } ; 
texutbackgrocuns (51ue8) 5 
end; 
until (tempnumber > 1) and (tempnumber < 16); 
Gotox¥ (2,8); Write (‘Members names: a) 
count := @; 
¥Yos3= @; 
MOVeOVer i= 373 
receat 
Li niti2ees == Os 
if ¥Y + 14 then 


beqin 
mOveover := moveover —- &s 
Wo 2 =e 


GotcAY (2,8); 
Wreite(’Members names: a 
end; 
repeat 
gotoxy (moveover,Y)3: 
getthnekeystinputstring,3); 
shertName i= inputstrina; 
tempmember := inputstring; 
until ord(shortnameLlLid>) > 32; 
Reset (ActiveFroblemfile); 
while mot EOF factiveproblemfile) do 


begin twhilie statement; 
Read (ActiverroblemFiie,Membesers) ; 
if (Memcoers.member = tempmemder) and 
(members.problem = probname) and 
(members.choice = aiternative) thnen 


ie) 


i2mml Gs — eet mmnit + 1. 
end; twhile statement; 
Clase tActiverFProblemfiis): 
if (limmit = @) and 
mot (stopprog) then 
begin 

Members.Member := tempmember; 

Members.Cneckstatse := ‘a’; 

members.datsiine := ‘Empty File’; 

memcbers.ororniem := probname; 

mnembers.derinition := tempdef; 

members.choice := alternatives 

members.checkchange := ‘N°’; 

reset (activeproblemfile); 

Seek (ActiveProblemFile, 

Fiiesize(ActiveFProblemFile)); 

Write (ActiveFroblemfile,Members) ; 

close (ActiveProblemfile:s: 

NewString := protbnametaiternativert 
‘, ‘+membders. member ; 

Assiqn(fkriteriafile, 

concat (filedrive,’:° ,newstring)):; 

rewrite (Kriteriafile):s 

close(Kriteriafiie); 

EQ@ume := Count + 1: 

Y Ole 2 os 


end 
else 
begin (warnings 
gotoxy(13,16)3; textbackground(red) ; 
write(’Member is already on that 
committee’); 
delay (40@@) ; 
textbackgraund (bine); 
aQGOn ya eee or 2a 5 
end: (warnings 
until (count = tempnumber) oar (stopprag)s; 
1f tempnumber = 2 then 
DOEOK ¥ (2, 12) 
else 


gotoxyt2,11); 
write’Wiil communications and criteria be 
anonymous’? ‘)3; 


repeat fanonymous communications ys 
it temonumber = 2 then 
GOEGsY (Sra. 27 
else 


eeouexy (Sa7,11)3 
getthekeys(Inputstring,1)3; 
ch := inputstring; 
chm s:= chs 
meet an Yes MN 4s 


bd 
ae 
pe" 


ttf Cn = #39 then 
begin 
Anonymous == True; 
setfiie; 
ends 
enc; {Embedded if not StartUp Statements 


end; t(MewProolems 


procedures verirythename; 


(KEKE KEKKREKREHEKKEKRKEKRKRRKERKRE ERE KRKEKRKREKRKRRERKRKRKRKRHKEEHEKHKERERHKEEE 


*% FROCEDURE = 
* SUPPORTS FROGRAM =: 
*% LOCAL VARIABLES : 
* GLOBAL VARIABLES =: 
* 

* 

*# ARRAYS USED : 
*® FILES ACCESSED : 
# EXTERNAL CALLS : 
# EXTERNAL FILTERS : 
* CALLED FROM : 
# PURPOSE S 
- 

zz 


HHAKRERRAREARKHHR ARREARS EAR RRR KERARRR RRR RASERKRSREAHRESR RRR RRS HH, 


var 
SHORTNAME 
COUNTS 


be ri 


Lv 
i 


egin 2 
stopgqen : eae 
repeat ie Tan 
gotoxy(3o,16); 
repeat 
get 
shortName 
gotoxy (3s, 
until 
as:= 23 
while 
begin 
Sropnam 
a a 
end; 


+ 
- 
ft 


 — 
= Ge IL 


nekeys tinoutsering, / 


VERIF ¥ THENAME 
BTOUCH. PAS 
SHORTNAME, COUNTS 


STOPGAP, INFUTSTRING, FROBNAME, 
MEMBERS, ALT, STOPPROG, FILECHECK, 
NEWNAME, PRINTONE 

NONE 

ACTIVEFROBLEMFILE 

DISFLAYIT, GETTHEKEYS 

FILTER9.LIB 


PRINTALTERNATIVES, PRINTCHATTERSOX 
Paes Sige 2 Ver eet oie tie cai 
VERIFIES THAT A MEMBER [5 ON A 


# 
* 
“t 
it 
* 
# 
it 
Es 
# 
# 
ah 
ae 
+ 
CERT SLM fee alae. = 
} 


STRINGL7I; 
INTEGER; 


ythenames 


Cant s 
lename verifl 


SB 
ed 


4 28 


as 
inputstring; 


Lao] 
iordisnortnameli 
probname 

(shortnameLlad 


~ 322) or (stopproaqd); 
shortNamelid; 
(aciG@) do 


5 
# 


ine ie) ) | crcl 


comcatioropname,shortname 


reset iactiveoroblemtile); 
while not EDF Cactiveprobiemfile) do 


begin CWhile Statement} 
readtActiveFProrciemFile, members); 
if (members.propiem = presname)? and 
(members.cnoice = ait) then 


stopgap 


trues 


hJ 
hJ 


end; 
if not ‘istopgap) and not (stopprog) then warning; 
counts := succfcounts); 
ttill filename verified} 
until counts > 2) ar (stopgap)? or (stoporoas): 
close (lactiveproblemfile); 
counts := @; 


if (stopgap? and (printone) then 


beqin 42 stoarpgar and printcne;s 
tilecheck := falsea; displavit: 
repeat 


GOtexy (inte): 
write (‘Enter the MEMBER initials 
of the file: “Th 
gotoxy (43,16); 
repeat 
qetthekeys (Inputstring,S); 
NewName := inputstring; 
gotoxy (43,16); 
unmtil C€ord(newnamefil) > 32) or (stopprog); 
reset (ActiverroblemFilei: 
while not EGF Cactiveproblemfile) do 
hegin t(While Statement: 
readtActiveFroblemFile, members) ; 


if {members.proplem = probname) ara 
‘members.memper = NewName; aANnG 
(memopers.chcoice = ait} then 
Ssegin 


filecheck := true; 
stopgap := true; 
end; 
ends; «While Statements 
Close(activeproblemfile)s; 
tf mGOt (frilecheck) ard 
mot tistopprcg) then 
begin 
gotoxy(14,15)3; textbackground(red)s 
writet’ Member iS not on 
that committee ‘3; 
delay (4@4@) ; 
textbackground (blue) ; 
gotoxy (14,135); 
Git eal; 
end: 
ceunts := succ fcounts): 
mnmbkil (counts = cre eenecr er istoporscae: ; 
end; {if stopgap and printone; 
ends; {(verifythename;s 


ua 


aes 


procedure printalternatives; 


i PRK BREHHBE BRECKER EE SESEHHERERE REE RRR SERRE BE RRR eRe 
* PROCEDURE PRINTALTERNATIVES * 
SUPPORTS PROGRAM RTOUCH. FAS # 
LOCAL VARIABLES GHGRTNAME, TEMPALT, ZCOUNT * 
GLOBAL VARIABLES PRINTONE, ALTERNATIVE, ALT, * 
STOPG4F, STOPPROG, NEWSTRING, « 
PROBNAME, FILEDRIVE, NEWNAME. Z, # 
CRITERIA, MEMBERS * 
NONE * 
ACTIVEPROBLEMFILE, KRITERIGFILE + 
= 

& 

* 

+ 

¥ 

; 


ARRAYS USED 
FILES ACCESSED 
EXTERNAL CALLS 


LOADIT, VERIFYTHENAME, WARNING, 
NOFILES 

PRINTER(CEXTERNAL DEVICE) 
CHATMANIFULAT ION 

PRINTS FILES ON SPECIFIC MEMBERS 
ON A COMMITTEE FOR ALTERNATIVES, 
EITHER COMPLETES Gk IN PROCESS. 
HERRERA R EER AK RK HERKEN ER HRE EAL REAKA HK RAR RHE KRERKKRERREREREE 


EXTERNAL FILTERS 
CALLED FROM 
PURFOSE 


* eR OR KR RK ROKR KR ROK ke 


Yar 
SHORTNARME $s: STRING? I; 
TEMP RET Seceumelad 1 Paigus 
22ouN 3 PMI ESS s 
cegin iprintalternativess 


printone := true; 

Reset (ActiveProblemFile)s; 

zcount := (filesizetactiveproblemfile)); 
Closetactiveprobiemfils}) ; 


repeat main repeat statements 
temoesit := alternative: alternative := aits 
leacits 


alternative := tempalt; 
if = =6zcount + @ then 
DEGIN tif the frlesize statements 
repeat 
stopgap 3:= false; 
goto y (iw 
weitel ‘Entering a Problem Name’, 
from this list will print that’); 
Gotexy4 le) =: 
weitel tile faemlvon ae 
QoUtCGnS7 ee 
weiter’ To quit without printing a tile, 
Press Fi@.’'}; 

gotoxy( iia) clreol; 
weite(’Enter the name of the Froblem:’); 
Yerifythename; 
LS 7 


bPe(hileeheck) and noetetstoppreg) then 
Begin {conditions are met 
newstring := 
concat (probnametalt+'. ’+newname) ; 
assigqnt(kriteriafile, 
filedrivet’: ‘+tnewstring? ; 
Reset (kriteriaFile): 
Z t= filesizetkriteriafile); 
1f =z + @ then 
begin f1f filesize; 
writein(ist, “PRGBLEM [5 
“sprobname) ; 
writeln (ist); 
writelnilst); 
while not EOQF (kriteriafile) 
begin iWhile statement; 
read(kriteriafile, 
criteria); 
writetist, 
criteria.critname,': 
writein(ist, 
criteria.critdef); 


ends; tWhile statement} 
end; tif filesize; 
close(kriteriafile)s 
and {conditions are met: 
aise 
pegin 
if not (stopprog) then 
warnings 
end; 
ee eg 
If [Qresuit = @ then stopgap := true; 
if f2 = 4) and not (stopoercaq? then 


beqin tif filesize elise} 
Gotroyvvyt2l, ia? $ 
write (’file is empty’): 
delayti02@) ; 
Gecoxytei. ia: 
GiseGa-s 

end: Cif filesize else} 

until (stopprog) or (stopgap); 


end {If the filesize statement; 
eise 
nofiliss;: 
Piet sc OPpprog: imain repeat statement: 
end; {printaiternatives; 


J 
fate 
Li 


do 


procedure printchatter bax; 


(HKEZKEHRKEREKKREREKREKKREKREKREKERKRKKRKRRKRRKRKRKRERKAKRKRERRRKRKRAKRRKRRHER EET 


* PROCEDURE : PRINTCHATTERBCOX * 
*® SUPPORTS FROGRAM : BTOUCH.PAS % 
* LOCAL VARIABLES : SHORTNAME, TEMPSTRING, TEMFALT, * 
* EGUNT Smee 2 COUR * 
* GLOBAL VARIABLES : PRINTONE, ALTERNATIVE, ALT, ws 
+ STGPGAR. FPILEDR 2. SIP hea * 
*® ARRAYS USED : NONE * 
%& (PRES ALSSssey ¢ \(RERTRPILE., Met 1 VEPReseenMr lee 5 
*® EXTERNAL CALLS : LOADIT, VERIFYTHENAME, WARNING, s 
at NOFILES * 
*® EXTERNAL FILTERS : PRINTERCEXTERNAL DEVICE) * 
*® CALLED FROM : CHATMANIPULATION it 
x PURBGSe : , PRINTS EIEES Gh SPECIFIC FPROBEEMS = 
rs WHERE THE MEMBERS HAVE UTILIZED % 
* THE CHATTERBOX. + 
KEKE EERE RK REE REE RERERERE EERE EKER EE ER KEK ERE RRKRE BRE RRREREE) 
Vaur 
SHORTNANE : STRINGE7I; 
TEMPSTRING : STRINGCS41]; 
Taka lee = TEXTS 
TEMPALT : CHAR: 
COUNTS, ZCOUNT : Or TeGeRs 
Decgin fprintchatterbox; 


printone := false; 

Reset (ActiveProblemFile); 

zcount := (filesize(activeproblemfile)); 
closefactiveprobiemfilie); 


repeat imain repeat statements 
tempalt := alternatives alternative := ait; 
loadits alternative := temoalt: 
if zcount = @ then 
begin If the filesize statement: 
repeat 


stopgap := ftaise; 
Goteoxyvs1, 1.2). 
write(’Entering a Froblem Name’, 
from this list will print that’):s 
gqotexy (isis): 
write (’file for you'’)s; 
GObe yio. 14): 
wreited TOs quit without printing a +riie, 
Press Fi@.‘)s: 
gotoxy(1,14); cilreol 
write l’Enter the name of the Frobliem: "3 
verifythename; counts := @ 


s 
4 
a 
2 
s 
3 


tJ 
Ci 


if (stopgap) and not (stopprog) then 
begin tconditions are met} 
NewString := probnametalt+’.zzz‘3 
Assign (textfile,concatt(filedrive, 
"$3 ",mewstring)); 
ie? 
Reset itextfile);: 
C$1+} 
if fOresult = @ then 
Begin <¢ifOresult; 
writelntist, “CHATTEREBOX IS 
",probname) ; 
writeln(lst)s: 
writeln(ist)s: 
while not EOF itextfile) do 
begin (While statement; 
readinitextfile, 
tempstring)s: 
writein¢fist,tempstring?: 
counts := suce (counts): 
end: fWhile statements 
end; ifOresults 
cioset(textfile): 
end tcoonditions are mets 
else 
beg 


- 


4s 4 


rn 
Fo mot (stoporag) then 
Warnings 
end; 
If {counts = @) and not ‘stopprag) then 
begin tif filesize elses 
Gotoanyt 2t 1S: s 
write(‘file is empty’): 
deiay (-3@@@) ; 


Games ie 1 es 
Gareol; 
ends {if filesize else} 
until {(stopprog) cr (stopgap; 
end tif the fiiesize statement: 
else 
nofiies: 
until stopprog;: imain repeat statements 
ends tprintchatterbox 3s 


rs 
as 
SI 


{PTATLEND.LIBs 


procedure Finalthoice; 


(HERES HSEERERKREHR HK EE ERE RHR PER EEK SK SERRE RHE RKB EERE ERK EEE RES 


* PROCEDURE :s FINALCHOICE & 
& SUPPORTS PROGRAM : CTOUCH.FAS & 
* LOCAL VARIABLES : WNONE * 
* GLGBAL VARIABLES : PROBLEMFLAG, FLAGCHOICE, COUNT, # 
* MEMBERS, NAMESTRING, PROSBNAME, * 
+ ALTERNATIVE * 
% ARRAYS USED >: WNONE * 
© PILES BRelCeosee s ACTIVEPROBLEMFILE = ‘PROBES. TXT’ € 
* EXTERNAL CALLS > WNONE * 
® EXTERNAL FILTERS : NONE % 
M CACC ED eee > REVIEW, WINDOWS * 
* FPUREGSE : IF THREE CONDITIONS ARE MET, THEN * 
% MEMBERS. CHECESTATE IS CHANGED * 
# TO WHATEVER THE NEW VALUE OF = 
* PROBLEMNFLAG IS LOADED INTO THAT * 
€ RECORD. * 
KEHRAKERLARKEAL EEA REREAD HER HELLER RHA LARKEAR NAR RARH KR EHAAR HEAR EER) 


begin te inaiChoices 


case FroplemFlaq of 


iI 


FroblemFlag 
ProbilemFiag 
ProbiemFiag 
PrablemFlag 
Problemriag 
ProopiemFiag 
ProbleamFiag 


8 


i 
QVS40D90" 7 


aa oe gu oe 
% w » 
“8 ‘st ‘£0 Wwe 


Wi 


Mei B® 
Oo ih Gh Os 
™@  w@ Mm lh Hy 


ue Ga un 
a, % 
‘2h cpu ‘RE 


end; {case statements 
flagchoice := ° ‘°; 
reset (ActiverProablemFile); 
Walbigney = 1 - 
whiie not EDF (ActiveProblemFile) da 


begin itWnile Statements 


read (ActiverProblemFile, members?: 


if (members.memter = namestring) and 
(members.problem = probdname) and 
(members.cnoice = aiternative) then 


es 


members.CheckState := problemflag; 


seek (activeprobiemfile,count—1)3 
write lactiveproblemfile,members) ;: 
fount 3:= succelcount): 


end; {While Statements 


close tActiverPrcocblemFile): 


end; tFinalChoicae; 


procecure LoadArray; 


CHEEK KHKKREEKRKEKEE RHR KNKKKKKKKREKREKHKRKKKEKRKEKRKEKEKKKKRKKKRKKRRRKREKRHREE 


* PROCEDURE 
SUPPORTS FROGRAM 
LOCAL VARIABLES 
SLOBAL VARIABLES 
ARRAYS USED 
PILES ACCESSED 
EXTERNAL CALLS 
EATERNAL FILTERS 
CALLED FROM 

oR ook 


OK oe Ok OR Ok ee OK Ok OF 


KHEEEKKKKKEKKESKKRKKKEKREKRKKRKKKRKERKERKEE RHEE KKEKRKEEKRKKEKAEEKRERKEEEE 


begin (LoadArray?s 


LOADGRRAY 

CTOUCH. FAS 

NONE 

TRACK1, LIMMIT, NAMES, Z 
CRITARRAY 

KRITERIAFILE 

CRITSORT, NEWNUMBER, ODOMETER 
NONE 

WINDOWS 

LOADS THE ARRAY WITH THE USER'S 
CHOSEN PROBLEM FOR RECORD 
MANIPULATION BEFORE THE FROGRAM 
TERMINATES. 


reset (kriteriatiis)s: 


he bd 


== filiesizeitkriteriafile); 


f#-2a s+ 80 then 
begin {if filesize; 
facet f= 1; 
while not EOF (KkriteriaFiie) do 
begin {While Statement; 
Fead(KriteriaFile,Names(€Trackid); 
Wreaekl += racki + is 
end; {While Statement:s 
moines 2 Tiracki-: 
end; {if filesize; 


Close(FriteriaFile); 


CritSort (‘Names,Limmit) ; 


fdcocmeters: 


end; {Loadarrays 


NewNumber (Names,Limmit)s: 


ek OK Ok OK RO ok Od 


if 


+ 
% 
) 


procedure NewhWrite(var Names +: CritaArrays; Limmit s 
Integer); 


(REMEBER EERE KR KERR KREE RHE HRMEKRHRRKR HRS RKREMRHREHREMKR MRR MRKRE RK KKH KHRE HE 


*# PROCEDURE : NEWWRITE * 
. S02 e eos eee oe eee CIOUEHSsEAsS % 
# LOCAL VARIABLES : ONE + 
* 6LO0BAL VARTARLES - : Z2, TRACKI, NAMES, PROBLEMFLAG, # 
* LIMMIT *% 
* ARRAYS USED : CRITARRAY % 
* FILES ACCESSED : NONE & 
* EXTERNAL CALLS : CRITSORT, NEWNUMBER € 
*% EXTERNAL FILTERS : FILTERS.LIB * 
%® CALLED FROM : WINDOWS, REVIEW * 
*% FURPOSE : RELQADS THE CRITERIA FILE FROM % 
* THE ARRAY THAT HAS BREEN CHANGED 

+ 


* 
THROUGH THE ACTIGNS OF THE USER. 
RHE KKK EERE KE EKER HE RKE LEAR HEH ER HEH ER RHR REM EERE R RRR EER EE ESE ) 


Begin {Newwrites 
if z - § then 
begin {27% tiles e; 


CritSort (Names,Limmit) ; NewNumber (Names, 
Limmit)s 


rewrite (Kriteriafilea) ; 
Fracki 3= Is 
repeat 
case nameslirackij.tlagi or 
lL... LBC aa: begin 
NamesCTrackid.StatFlag := 
problemFiag; 
Write(Ckriteriafile, 
Names€Trackidis 
end: 
ends icase statements 
Track! s:= Tracigis i: 
until €fracki = Limmit)s 
end; “4if tiil@esizes 


ClosetKkriteriarFiie)s; 


end; {New 


Writes 


procecure Cnhangerecordlvar Names : Griearrayv: 


Limmit : Integer); 


(CER RK REESE SEEKERS ER HRE RRS RHEE ERK KERR ERHRKRE RE RHRKKR KERR ERS KR RK 


ee RR OK ROK KR RK Kk KR KOK OK HF HK 


PROCEDURE 
SUPPORTS FR 


2 CHANGERECORD 


OGRAM CTOUCH. FAS 


LOCAL VARTABLES > WRONGLEVEL, WRONGWORD, CHANGECRIT, 


GLOBAL VARI 


ARRAYS USED 
foes ACCES 


EXTERNAL CALLS 


EXTERNAL FI 
CALLED FROM 
PURPOSE 


CHM, TEMPALT, LONGNAME, SHORTNAME 
ABLES : TRACK1, CHOICE, WITHOUTACHANGE, 
FINDCODE, CH, FROBLEMFLAG, NAMES, 
STOPPROG, COUNTED 
CRITARRAY 
NONE 
GETTHEKEYS, NEWNUMBER 
FILTERS.LIB, FILTER9.LIZ 
REVIEW 
ALLOWS THE USER TO CHANGE THE 
ALTERNATIVES/CRITERIA, AT THE 
LEVEL OF DEVELOPMENT THEY ARE 
AT. WILL NOT ALLOW THEM TO 
CHANGE CRITERIA AT & LEVEL 
PREVIOUSLY FLAGGED AS FINISHED. 


Sep 


LTERS 


hoe OR OR OR ok OR ok ok ke Ok ok Ok ok OF Ob 


CER EREEEARKR EEE EK SREB ERE AAAS REE TEASERS HRS EHS | 


Var 


WronglLevel, 
WrongWord 
changecrit 
cmim 


Hoolean; 
Booiean: 
stringlid; 
chars; 


WithoutAChange, FindCocde 


shoriname stringif: 
lonaname Stringls&i; 
tempait Sstrinelizis 
Ddegin iChangekecords 
if alternative = ‘A‘ then 
tempalt := ‘Alternative’ 
else 
tempat s= “CriterYrasys 
tracki i= @; choice := ° ‘3 
WithoutAChange := True; Fingcode := False; 


Wronglevelil := True; 


gotoxyica, 


as cireol; 


write(’Enter the ‘,tempalt,’ Name you wish to change 


ot 


delete: ae 


oat ae 
Gamer fico, 2) % 


repeat 


getthekeystInputstring,i) ; 


Zo 


— 
— 


) 


snortName 
gotoxy (52,2 
until ¢ordtsho 


tnamelild) 


s 
3 


Cc 


me 


+ i 


mM 


ee 
= 


n rie = Ssnercuamnel 


Gg 


wniie 


shortnametasd 
cegin 


i 
% 
- 


repeat 
gotoxy (2,2) 
wrongievel 
wronqword 
Cr agen 


Ba 6 


—_ 
= 


= 


mac 


tru 
S 


fi 


‘an ‘on 


rue 
: ise 
Pa i + 


mye 


| - 
a *~ 


“2 8 


case problemflag of 


begin 
7 < 


? 


chrii3)) 


concat (changecrit,shortnamelal) 


inpeputstring; 


“., 
” 


ere 
aa* ofiew 


or istopprag?): 


ia 


: 


ara 


& 


oG 


(aiil) 


3 


clreol; 


émamesCtrackild.cri = 
cnhangecrit; and 


fnamesCtrackil.fiage 


IAanhe 


> 


then 


Uo 


peqgin 
Wa thoutAlnange 
gotoxy (252) 5 
write {NamesC€Trackil. 

CritName, °: 
Mames(Trackiil.ctritDe 
Gotoxy(a,4) 3 
write ‘Do you wish 
Selets this 

‘or change it?’ D/C 
FindCode := True; 
gettnekeystinputstring, 
choice imputstrings 
aronglevel := Fal 
gotoxyi2,4)3 
clreol; 

end; 

(namesCtrackil.critname 

c#hangecrit: ana 

inamesitirackii.riags 


Pailses 


¢ 


9 
+) 
Eo 
9 


é 3 


a 
“28 


- 


s = 
2 


rie “a 


‘° 
2 
oe 


meal 
— 


a) 


then 


— 
— 


wrongword trues 


er 
— 


t(mamesttrackli.critname 
changecrit) and 
(namesttrackid.ftlage 


2) and 


Nee 


(namesCtrackijl.flaga = @) 
then 
begin 
WithoautAChange := False; 
Goce: y ( Sees: 
write (Names(€Tfrackid. 
CritName,‘: i 
NMames€Tracki]. CritDef) : 
gotoxv (2,4) 3 
write(’'Do you wish to 
delete this ‘-, 
‘or change it? D/C eps 
FindCode := True; 
getthekeys(Inputstring,1); 
choice := inputstring; 
Wronglevel := Faise; 
gotoxy (2,4)35 
clreol; 
ends 
If (namesCtrackid.critname <> 
changecrit) and 


inamesftrackili.flags = @) 
then 
wrongword := trues 

end; 

pegin 


if ‘(namesitrackiid.critnmame = 
changecrit) and 
(namesCtrack1lid.flaqgia + @) 

then 
begin 
WithoutAChange := False: 
qove<y iz, 25 
write tNames(Trackid. 
CreiwName, = 
NamesfTracklid. eee 
gotoxyt2,4)35 
writer’ oo you wish ta 
delete this ‘, 
‘or change it? D/C foes 
FindCode := jrue; 
getthekeys(Inputstring,!1); 
choice := inputstring: 
Wronglevel := Faise; 
gotoxy (2,4); 
clreols 
ends; 

If tnames(Ctracklid.critname «> 
changecrit) and 
(namesCtrackil.fiagS = @) 

then 
wrongqword i= true; 


EES a 


deme ci Soe! 


end: ticase statement; 
until itracki = limmityeor <“finceoge.., 
if wrongword then 
begin 


if aiternative = ‘A’ then 
tempait := ‘Alternative’ 
else 
tempalt := ‘Criteria’; 


clrscr; sound(S3@@); delay(1@@)3; nosound; 

gotoxy (12,2); 

writeln(’° You may have misspelled the ‘,tempalt, 
". Try aQGain.');3 

delay (S909) ; 

gotoxy?1i3,2)3 cCireol; 

FindCode := True; 

wronagilevel := faise; 


end; 
if wronclevel then 
Degin 


if alternative = ‘A’ then 
tempalt := ‘Alternative’ 
else 
tempait := ‘Criteria’; 


cirser: sound(S@@):; delay(10@)3; nosound: 
SGC < lS. 27 
writeini’You may not change the ‘,tempait, 
at that levei'‘'); 
delay (SWUm):; 
gotoxyvl2.s?: clreoi; 
FindCode := True; 
wronglevel := false; 


end; 
tf choice = ‘PD’ then 
begin tif Deiete Statements 
cirscr;: 


gotoxyl2,2); 

pera te (Namesf€Track1].CritName, ‘: aa 
Namesltrackil.Crieees) > 

gotoxy (2,4) 3 

textbackcround tred); 


224 


enaice :;=—: Gqmanxy (12, 7)"; 


if aiternative = ‘A’ then 
tempait := ‘ALTERNATIVE’ 
elisa 
tempait := ‘CRITERIA’; 


niece (Oemanewacoerr so DELETE THIS RECORD! !! 
BE ADVISED ‘3; : 

Sawoty vis. 1: 

writet’ THAT A YES ANSWER TO THI 
REMOVE THIS ‘)3; 

gotoxyl1i2,il)d; 

writet’ °,TEMPALT, ’ FERMANENTLY. DO YOU STILL 
WiSh TO DELETE *); 

Geren yi 12 1275 

write?’ THIS ‘,tempait,'? Y/N 
5 

getory (62,1272 


Cy} 
} 
ie 
1 
uy} 
=| 
4 
Gy 
za 
== 
4 
ee 
C~ 


repeat 
getthekeys(Inputstring.i); 
ch := inputstrings 
Gam 3;= cs 
gotexy (64,12); 

Cee lim im CMeye, CRI Ts 


2 


eirscr: 


if ch = ‘Y’ then 


begin tEmbedded If Belete Statement: 
Gime s = “eles 
aot omen te 
write iNamesttfrackilz.CritName,’: a 


Names Track1).CritDef); 

gotoxyis2, 4); 

GeLtot =e 224? . 

writer’ This ee mas been 
deleted’); 


Names(€Trackij.Fia Sai s= ; 
delay (4@@@) ; 


SaCONY (252). cireol;: 
G@owox y (2 ae) 3 Clee 
changeresc :;= '['; 
ends tEmbecGded If BDeiete Statement: 
ends; {If Delete Statement; 
Cee rote =e” Linen 
begin Cif Change Statement; 


bJ 
I J 


ti 


if aiternative = ‘A’ then 
tempait 3: ternative’ 
else 
tempait i= ‘Criteria’; 


II 
D 
ped 


Cnoice 3:= : 
Seige eg cts 

se Enter the New 
HOGGy ¥ Cot. 5 


¢ 


scempalt,° Name: 


repeat 
getthekeys (Inputstring,18)s; 
ShortName := inputstring; 
GGtGwy6 SS, 5) 5 
until ee Ee oo) ee 
(stopoerog?); 


9 
trackilj.critname := shortNameCids 
while (shortnameial <> chr(i3j)) and 
(ax li) do 
Degin 
namesitrackli.critname := 
concat inamesitrackil.critname, 
shortnmamelal)s 
ag= a+ is 


2 


2iG 


ae 


GOtCOxY (2,4)5 write! ‘Definition: he 
gotoxy (15,4); 


repeat 
gettnekeystineutstring.s&): 
2angName i= inputrstrings; 
getox yaad 3 .<e 
tite Led Me a 
Stoporog?); 


= 
i 4 


fh 


mamesCtrackid.critde? := lonqNameris 


a 


whiie (longnameiald <> chr¢tis)>) and 
(axcountedt!l) do 
headin 
mamesitrackiid.critdef := 


ay 


Toncat inamesitrackild.critde?f,loangn. 


as= a + 13 


end; 
elrsems GOtOKYi2,=)5 
ie t « ¢ 


wiritelnamesLirac i 
mameslTrackilj.critaeti: 


GGteryieee es 5 
Wirlcet' Tne ‘,tempalt,' Ras Seen 


oe ae 


changed‘); 
delay (2540) ; 
Goeory (22,4) 3 
GSoeetvie, 72 
cChangerec := ‘°C’ 


re 


end; tIf Change Statements 


NewNumber ‘Names, Limmit)s 


end; t(CnhangeRecord?: 


procedure RanToCompletion; 


clreol: 
clreol: 
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* PROCEDURE 


Gain Ook THIS FPROCEDURE 


RANTCCOMPLET ICN 


SUPPORTS FROGRAM : CTOUCH.FAS 

LOCAL VARIABLES >: NONE 

GLOBAL VARIABLES : i 

ARRAYS USED : NONE 

Gees MECESSED s NONE 

EXTERNAL CALLS s PORTCS@S0971, SETBORUCER 
PROCEDURE) 

SeeoameL, Fillers MONE 

Geerep FROM WINDOWS 


INFORMS THE USER 


CINTERAL 


kk Ok BOR eR Ok OK * 


mK OB Oe wk we Kk Oe RR RK HK Ok 


THAT ALL MEMBERS OF THE COMMITTEE 
ARE IN COMPLETE AGREEMENT WITH 
THE CRITERIA CONCERNING THE 
PROBLEM. It DIRECTS THEM TO GO 
ON TO THe FIRST STAGE OF THE 


KOR ROOF 


# 


GO-[OP sero leme sa sin MUEH {SN T 2£1es 
LESAKLE RASH LKR RELA RE EAR RK LHR HAD AREARER ER ARERR ER EE RR EREXEES) 


procecure Setoporder (coior:byte)s; 


begin 


{setborcder ; 


portléS@sd7)]:= #f and colar; 


end: {setbor der > 


degin 


-— 


tanToctompietian:s 


introscreen; 
GotoxyY (9,8) 3 


write(’You are now ready to enter the CO-OP system’); 


Bete. (ic. 1G) $ 
wreitet Press any key to @exit'); 


repeat 


for I := @ to 15 do 


begin 


setbporcer iid; 
Gelay (502) ; 
end; 
until Keypressed; 
setborder (a: 3; 


end: (RantoCompletions 
procedure Reviewivar Names i: Critarray? 
Limmit 3: Integer); 
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* PROCEDURE : REVIEW * 
* SUFFORTS PROGRAM : CTOUCH.FAS # 
* LOCAL VARIABLES : CHM, TEMFPALT * 
* GLOBAL VARIABLES +: PTi, PT2, PTS, PT4, PROBLEMFLAG, ~+* 
* SCROLLIT TRACK1, CH, INPUTSTRING, « 
* FLAGCHOICE 4 
* ARRAYS USED : NONE * 
* FILES ACCESSED : NONE x 
* EXTERNAL CALLS > REVIEWL, GETTHEKEYS, CHANGERECORD, « 
% FINALCHOICE, NEWWRITE % 
* EXTERNAL FILTERS : # 
* CALLED FROM : * 
%* PURPOSE > ALLOWS THE USER TO REVIEW PAST = 
# ALTERNATIVES/CRITERIA, AND CHSNGE « 
“ THEM, DEPENDING AT WHAT STAGE OF + 
* THE DEVELOPMENT THEY ARE AT. * 
KEKE RRERREERR ER RRE EERE EERE RRR E RRR EHR RRR RRR MRRERHRRRKHKHRRRHHES 


Var 
CHM : CHAR; 
TEMPALT +: STRINGLi23; 


DeQGin tREVi ews 
Gilrstte. 
oti 2 Spee pte = 2) pea = 773) 9218. — 
window pti, pt2,pt3,pt4);s cirser; 
scroilit := true; tracki == 1; 
reviewl (names,limmit);3 
case probiemtisa or 
@ wa Gl a teen ec s 
beqin {inside of Case Statements 
repeat 
if aiternative = ‘A’ then 
tempalt := ‘Alternatives’ 
else 


2e0 


tempait := ‘Criteria’; 


qaetexviiesis: Gime “SN ae cireol: 

writei’da you Wish to Change a portion of 
thee .tempalt. 7’ 

Goctexy (12,275 cireoli; 

write (’Press Home Fey to activate 
2Jeretliing. Fress t&nter’?); 

GGtexyti2,4)% clreol; 

writeti’Key betore answering the gquestian 
atw@er -SERmG01img. @ s 

gotoxy(66,1)3; 


> 
& s 
“8 


getthekeys (Inputstring,1); 
ch := inputstring; 


If ch = ‘Y¥’ then cee 


begin feEmbedded [f Statement: 
gowexy (ra, 1) cirecl; 
gotoexyii2,3} cireci; 
gotoxytis,4) cireol; 
ch 3:= ‘'N’s; 
ChangerkecordiNames, Limmit:; 


ae #8 ‘ma 


" 


# : aL 
evil inames,iimmit); 
i ies 


= 


< ot 


= 
i 
<= 


os a _ 
ey 
jet 


ra 
end; {Embedded If Statements 
Miet i Gi. = “Nes 
scroliit := “aise: 
enas {Inside Case Statements 


end; tease Statements 


case probliemflag of 


» 
0 
- 
s 
a 
Ch 
i 
fed « 
wi 
fans 
s 
- 
Q 
ae 


bedcin {Inside of Case Statements 


ai Scr; ga@Gelaxy «250. 5) = 

writel’Are vou finished reviewing tnis 
level’); 

HoEexy (26.9); 

writel’or will there be more changes? 
Enter ‘):3 


ite (’'° °F’ ¢0r Finished or 
Fi tor fare: > 


7239 


tome ote? 


receat 
Getthekevs 


(Inputstri mee i): 

Fflagcnoice += inputstrings 
chm 3:= fiagcnhoices; 
GQOtGH arse. a= 

until CHM in Eee” . my 7: 

if (FPlaglhoice = ‘F’) then 
FinalChoices 

end; {Inside of Case Statements 


‘he Gd’ ak’, Mm’, Nn’, Dp’ : 
begin 
gotoxy(2,2)3 
write (’Press Return to 


continue: eee 
getthekeys(Inputstrina,iis; 
ends 
ends (case statement 


Neanwrite(Names,Limmit); 
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